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Disk file explanation 

This is the explanation of the files which are on this disk. 

1. 2xBIOS24.ASM 

This is your bios file for your operating system. This contains 
all the disk I/O, and console I/O routines. 

2. 2xBOOI24.ASM 

This is the secondary bootstrap for your operating system. 

3. 2ZBIOS24.ASM 

This is a special modified file of the 2xBIOS24.ASM with Z-80 
instructions. This file is smaller in size then the standard 
bios file used in your system. To assemble it, a special assembler 
called ZASM.COM is included on the disk. You must nave a Z-80 cpu 
in order to use the 2ZBIOS24 in your system. 

4. ASM.COM 

This*is the Digital Research assembler. It does not assemble Z-80 
instructions. 

5. BASIC.COM 

This is a public domain basic written by Gorden Ubanks for his 
thesis. It is an unsupported peice of software. 

6. COPY,ASM and COFY.COM 

This is a disk copy routine. It will copy a disk from drive A to 
drive B. 

Commands are: 

COPY ALL<cr> copys entire disk 

COPY DATA<cr> copys data tracks only 

COPY SYSTEM<cr> copys system tracks only 

7. CPM.COM 

This is your imiage file of your operating system. DO NOT DESTROY!! 

8. DDT.COM 

This is Digital Researches Dynamic Debugger Tool as described in 
their manuals 

^‘T^is^is^a^special blocking/deblocking file which must be merged into 
your bios file to allcw operating with sector sizes other than 128 byte, 
instructions are in your manuals from Digital Research. 

10. DISKDEF.LIB 

This file is used to automatically create disk definitions in the 
bios file. You must have Digital Researches "MAC" macro assembler to 
use it. 

11. DISKTEST.ASM 

This is a disk test file. It will report hard and soft disk errors, 
this program is read only. 

12. DUMP.ASM and DUMP.COM 

This is a disk dump file from Digital Research. 

To use it, type DUMP <filename. extXcr> 

13. ED.COM 

This is Digital Researches Context Editor. 

14# EXTRACT. COM 

This program allows you to list out to the console (or list device 
if you type p), any portion of a PRN file between two (2) labels. 
Command syntax: 

EXTRACT <filename> (1st label) (2nd label)<cr> 

This program will list starting in the middle of the file to the end 
of the file by using a dummy lable for the 2nd lable name (one which 
does not appear in the file). 

15. FORMAT.ASM 

This is a disk format program. It will only format in the A drive. 
Besure to remove your system disk from drive A and replace it with 
the disk you wish to format, as this program will destroy any data 
on the disk. 

16. GUESS.COM 

Fun game of guessing a number that the computer knows. This program 



will run only on a Z-80 system, (oh well!). 


17.INV.BAS 

Unsupported inventory program. 


Will run with the basic on this disk. 


18. LQAD.COM 

Used to turn a HEX file into a COM file for execution by CPM. 

19. PIP.COM 

Program to transfer files from disk to disk, disk to console, etc. 
as explained in your CPM manuals. 

20. PRINT.C0M 

Utility program for printing file name heading and page numbers on 
list device. 

Command syntax: 

PRINT <filename.ext><cr> 


21.RUN.COM 

Run time package for BASIC.COM 
22 • STAT. COM 

Status program as explained in manuals. 

23. S1RIP.COM 

This program will allow you to make an ASM file from a PRN file 
in case you should loose your original ASM file. It will also allow 
you to name the ASM file to something else if you wish. 

Command syntax: 

STRIP <filename> (<new filename> or Cold filename>)<cr> 

This program looks automatically for the PRN file and automatically 
creats the new file with the extenstion of ASM. 

24.SUBMIT.COM 

this is a batch processor as described in the manuals. 

25.SYSGEN.COM 

File used to put a new system on the first 2 tracks of a disk. 

26. XDIR.COM 

Wide disk directory view program. Only works with drive A or B. 

27. XSUB.COM 

This is the extended batch processor file as described in the manual. 

28. ZASM.COM 

This is a unsupported Z-80 assembler. This file will run on either 
8080 or Z-80. The opcodes recognized by this assembler is included in 
your package, along with a cross reference from ZASM to ZILOG mnemonics. 
For the most part the command syntax is the same as the Digital researches 
ASM.COM file with one exception. 

Command syntax: 

ZASM <filename.ABCXcr> 

where ABC must be provided or the assembler will not work right. 
The extension of .ABC are the options that may be used during assembly 
time. 
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1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 
9. 

10 . 

11 . 

12 . 

13. 

14. 

15. 

16. 
17. 


0100 

0100 

0100 00 01 

0102 5A 41 53 4D 2E 

0107 43 4F 4D 

FFFF 

0000 

FFFF 


010A 54 45 53 54 49 

010F 4E 47 


THIS IS AN EXAMPLE 
OF THE OPCODES FOR 
THE ZASM ASSEMBLER. 



TITLE 

'ZASM OPCODES 

LABLE: 

ORG 

100H 

STORE 

EQU 

100H 


DW 

STORE 


DB 

'ZASM.COM' 

TRUE: 

EQU 

OFFFFH 

FALSE: 

EQU 

NOT TRUE 

f 

TEST 

EQU 

TRUE 


IF 

TEST 


DB 

'TESTING' 


;TITLE EXAMPLE 

;ORIGIN STATEMENT 
;EXAMPLE OF AN EQU STATEMENT 
;EXAMPLE OF A DW STATEMENT 
;EXAMPLE OF A DB STRING 

;DEFINE TRUE 
;DEFINE FALSE 

;CONDITIONAL STATEMENT 

;ASSEMBLER EVALUATES THIS 
;STRING 


18. 




ELSE 


; EXAMPLE OF ELSE 

19. 




DB 

'RUNNING' 

STRING 

20. 




ENDIF 


rMUST END AN "IF" STATEMENT 

21. 

0111 

50 52 4F 47 52 


DB 

'PROGRAM' 

STRING EXAMPLE 


0116 

41 4D 





22. 



• 

9 




23. 

0118 



DS 

80 

DECLARE STORAGE AREA 

24. 



• 

/ 




25. 

0168 

49 


DB 

01001001B 

BINARY EXAMPLE 

26. 

0169 

41 


DB 

011100101Q 

OCTAL EXAMPLE 

27. 

016A 

23 


DB 

23 H 

;HEX EXAMPLE 

28. 

016B 

32 


DB 

50 

•DECIMAL EXAMPLE 

29. 



• 

/ 




30. 

0035 


TYPE: 

EQU 

35H 


31. 

0046 


NEW 

EQU 

46H 


32. 



• 

9 




33. 

007B 


SAME: 

EQU 

TYPE+NEW 

ADDITION EXAMPLE 

34. 

FFEF 


OLD: 

EQU 

TYPE-NEW 

SUBTRACTION EXAMPLE 

35. 

0E7E 


AGAIN: 

EQU 

TYPE*NEW 

MULTIPLICATION EXAMPLE 

36. 

0000 


TOP: 

EQU 

TYPE/NEW 

DIVISION EXAMPLE 

37. 

001A 


BOT: 

EQU 

TYPE SHR 1 

SHIFT RIGHT EXAMPLE 

38. 

00D4 


MID: 

EQU 

TYPE SHL 2 

SHIFT LEFT EXAMPLE 

39. 

FFCA 


LID: 

EQU 

NOT TYPE 

'NOT' EXAMPLE 

40. 

0004 


DISK: 

EQU 

TYPE AND NEW 

'AND' EXAMPLE 

41. 

0077 


BOCK: 

EQU 

TYPE OR NEW 

'OR' EXAMPLE 

42. 

0073 


LIST: 

EQU 

TYPE XOR NEW 

'XOR' EXAMPLE 

43. 

016C 

33 

SIZE: 

DB 

TYPE MCD 10+'O' 

'MOD' EXAMPLE 

44. 



• 




45. 



• 

/ 




46. 

016D 

CE 00 


ACI 

0 


47. 

016F 

8F 


ADC 

A 


48. 

0170 

88 


ADC 

B 


49. 

0171 

89 


ADC 

C 


50. 

0172 

8A 


ADC 

D 


51. 

0173 

8B 


ADC 

E 



3 
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52. 

0174 

8C 





ADC 

H 

53. 

0175 

8D 





ADC 

L 

54. 

0176 

8E 





ADC 

M 

55. 

0177 

DD 

8E 

46 



ADC 

[X+NEW] 

56. 

017A 

FD 

8E 

46 



ADC 

[Y+NEW] 

57. 






• 

/ 



58. 

017D 

87 





ADD 

A 

59. 

017E 

80 





ADD 

B 

60. 

017F 

81 





ADD 

C 

61. 

0180 

82 





ADD 

D 

62. 

0181 

83 





ADD 

E 

63. 

0182 

84 





ADD 

H 

64. 

0183 

85 





ADD 

L 

65. 

0184 

86 





ADD 

M 

66. 

0185 

DD 

86 

46 



ADD 

[X+NEW] 

67. 

0188 

FD 

86 

46 



ADD 

[Y+NEW] 

68. 






• 

/ 



69. 

018B 

C6 

00 




ADI 

0 

70. 






• 

/ 



71. 

018D 

A7 





ANA 

A 

72. 

018E 

AO 





ANA 

B 

73. 

018F 

A1 





ANA 

C 

74. 

0190 

A2 





ANA 

D 

75. 

0191 

A3 





ANA 

E 

76. 

0192 

A4 





ANA 

H 

77. 

0193 

A5 





ANA 

L 

78. 

0194 

A6 





ANA 

M 

79. 

0195 

DD 

A6 

46 



ANA 

[X+NEW] 

80. 

0198 

FD 

A6 

46 



ANA 

[Y+NEW] 

81. 






• 

/ 



82. 

019B 

E6 

00 




ANI 

0 

83. 






• 

t 



84. 

019D 

CB 

47 




BIT 

0 f A 

85. 

019F 

CB 

40 




BIT 

0 ,B 

86. 

01A1 

CB 

41 




BIT 

0,C 

87. 

01 A3 

CB 

42 




BIT 

0,D 

88. 

01A5 

CB 

43 




BIT 

0,E 

89. 

01A7 

CB 

44 




BIT 

0 f H 

90. 

01A9 

CB 

45 




BIT 

0,L 

91. 

01AB 

CB 

46 




BIT 

0 ,M 

92. 

01AD 

DD 

CB 

46 

46 


BIT 

0, [X+NEW] 

93. 

01B1 

FD 

CB 

46 

46 


BIT 

0,[Y+NEW] 

94. 






• 

/ 



95. 

01B5 

CB 

4F 




BIT 

1 f A 

96. 

01B7 

CB 

48 




BIT 

1,B 

97. 

01B9 

CB 

49 




BIT 

i,c 

98. 

01BB 

CB 

4A 




BIT 

1/D 

99. 

01BD 

CB 

4B 




BIT 

1/E 

100. 

01BF 

CB 

4C 




BIT 

1/H 

101. 

01C1 

CB 

4D 




BIT 

1/L 

102. 

01C3 

CB 

4E 




BIT 

1,M 

103. 

01C5 

DD 

CB 

46 

4E 


BIT 

1,[X+NEW] 

104. 

01C9 

FD 

CB 

46 

4E 


BIT 

1,[Y+NEW] 


105. 
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106. 

01CD 

CB 

57 




BIT 

2,A 

107. 

01CF 

CB 

50 




BIT 

2,B 

108. 

01D1 

CB 

51 




BIT 

2,C 

109. 

01D3 

CB 

52 




BIT 

2,D 

110. 

01D5 

CB 

53 




BIT 

2,E 

111. 

01D7 

CB 

54 




BIT 

2,H 

112. 

01D9 

CB 

55 




BIT 

2,L 

113. 

01DB 

CB 

56 




BIT 

2,M 

114. 

01DD 

DD 

CB 

46 

56 


BIT 

2, [X+NEW] 

115. 

01E1 

FD 

CB 

46 

56 


BIT 

2, [Y+NEW] 

116. 






9 



117. 

01E5 

CB 

5F 




BIT 

3, A 

118. 

01E7 

CB 

58 




BIT 

3,B 

119. 

01E9 

CB 

59 




BIT 

3,C 

120. 

01EB 

CB 

5A 




BIT 

3,D 

121. 

01ED 

CB 

5B 




BIT 

3,E 

122. 

01EF 

CB 

5C 




BIT 

3 ,H 

123. 

01F1 

CB 

5D 




BIT 

3,L 

124. 

01F3 

CB 

5E 




BIT 

3,M 

125. 

01F5 

DD 

CB 

46 

5E 


BIT 

3,[X+NEW] 

126. 

01F9 

FD 

CB 

46 

5E 


BIT 

3, [Y+NEW] 

127. 






• 

9 



128. 

01FD 

CB 

67 




BIT 

4, A 

129. 

OlFF 

CB 

60 




BIT 

4,B 

130. 

0201 

CB 

61 




BIT 

4,C 

131. 

0203 

CB 

62 




BIT 

4,D 

132. 

0205 

CB 

63 




BIT 

4,E 

133. 

0207 

CB 

64 




BIT 

4,H 

134. 

0209 

CB 

65 




BIT 

4/L 

135. 

020B 

CB 

66 




BIT 

4,M 

136. 

020D 

DD 

CB 

46 

66 


BIT 

4,[X+NEW] 

137. 

0211 

FD 

CB 

46 

66 


BIT 

4, [Y+NEW] 

138. 






• 

9 



139. 

0215 

CB 

6F 




BIT 

5, A 

140. 

0217 

CB 

68 




BIT 

5,B 

141. 

0219 

CB 

69 




BIT 

5,C 

142. 

021B 

CB 

6A 




BIT 

5,D 

143. 

021D 

CB 

6B 




BIT 

5,E 

144. 

021F 

CB 

6C 




BIT 

5,H 

145. 

0221 

CB 

6D 




BIT 

5fL 

146. 

0223 

CB 

6E 




BIT 

5,M 

147. 

0225 

DD 

CB 

46 

6E 


BIT 

5, [X+NEW] 

148. 

0229 

FD 

CB 

46 

6E 


BIT 

5, [Y+NEW] 

149. 






• 

9 



150. 

022D 

CB 

77 




BIT 

6,A 

151. 

022F 

CB 

70 




BIT 

6,B 

152. 

0231 

CB 

71 




BIT 

6 ,C 

153. 

0233 

CB 

72 




BIT 

6,D 

154. 

0235 

CB 

73 




BIT 

6 ,E 

155. 

0237 

CB 

74 




BIT 

6,H 

156. 

0239 

CB 

75 




BIT 

6 ,L 

157. 

023B 

CB 

76 




BIT 

6/M 

158. 

023D 

DD 

CB 

46 

76 


BIT 

6,[X+NEW] 

159. 

0241 

FD 

CB 

46 

76 


BIT 

6,[Y+NEW] 
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160. 








161. 

0245 

CB 

7F 



BIT 

7, A 

162. 

0247 

CB 

78 



BIT 

7,B 

163. 

0249 

CB 

79 



BIT 

7,C 

164. 

024B 

CB 

7A 



BIT 

7,D 

165. 

024D 

CB 

7B 



BIT 

7 r E 

166. 

024F 

CB 

7C 



BIT 

7,H 

167. 

0251 

CB 

7D 



BIT 

7,L 

168. 

0253 

CB 

7E 



BIT 

7,M 

169. 

0255 

DD 

CB 

46 7E 


BIT 

7, [X+NEW] 

170. 

0259 

FD 

CB 

46 7E 


BIT 

7, [Y+NEW] 

171. 





• 

r 



172. 

025D 

CD 

00 

01 


CALL 

STORE 

173. 

0260 

DC 

00 

01 


CC 

STORE 

174. 

0263 

ED 

A9 



CCD 


175. 

0265 

ED 

B9 



CCDR 


176. 

0267 

ED 

Al 



CCI 


177. 

0269 

ED 

B1 



CCIR 


178. 

026B 

FC 

00 

01 


CM 

STORE 

179. 

026E 

2F 




CMA 


180. 

026F 

3F 




CMC 


181. 





• 

t 



182. 

0270 

BF 




CMP 

A 

183. 

0271 

B8 




CMP 

B 

184. 

0272 

B9 




CMP 

C 

185. 

0273 

BA 




CMP 

D 

186. 

0274 

BB 




CMP 

E 

187. 

0275 

BC 




CMP 

H 

188. 

0276 

BD 




CMP 

L 

189. 

0277 

BE 




CMP 

M 

190. 

0278 

DD 

BE 

46 


CMP 

[X+NEW] 

191. 

027B 

FD 

BE 

46 


CMP 

[Y+NEW] 

192. 





m 

t 



193. 

027E 

D4 

00 

01 


QIC 

STORE 

194. 

0281 

C4 

00 

01 


CNZ 

STORE 

195. 

0284 

F4 

00 

01 


CP 

STORE 

196. 

0287 

EC 

00 

01 


CPE 

STORE 

197. 

028A 

FE 

00 



CPI 

0 

198. 

028C 

E4 

00 

01 


CPO 

STORE 

199. 

028F 

CC 

00 

01 


CZ 

STORE 

200. 

0292 

27 




DAA 


201. 

0293 

09 




DAD 

B 

202. 

0294 

19 




DAD 

D 

203. 

0295 

29 




DAD 

H 

204. 

0296 

39 




DAD 

SP 

205. 

0297 

DD 

09 



DADX 

B 

206. 

0299 

DD 

19 



DADX 

D 

207. 

029B 

DD 

29 



DADX 

X 

208. 

029D 

DD 

39 



DADX 

SP 

209. 

029F 

ED 

4A 



DADC 

B 

210. 

02A1 

ED 

5A 



DADC 

D 

211. 

02A3 

ED 

6A 



DADC 

H 

212. 

02A5 

ED 

7A 



DADC 

SP 

213. 

02A7 

FD 

09 



DADY 

B 
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214. 

02A9 

FD 19 


DADY 

D 

215. 

02AB 

FD 29 


DADY 

Y 

216. 

02 AD 

FD 39 


DADY 

SP 

217. 



/ 



218. 

02AF 

3D 


DCR 

A 

219. 

02B0 

05 


DCR 

B 

220. 

02B1 

0D 


DCR 

C 

221. 

02B2 

15 


DCR 

D 

222. 

02B3 

ID 


DCR 

E 

223. 

02B4 

25 


DCR 

H 

224. 

02B5 

2D 


DCR 

L 

225. 

02B6 

35 


DCR 

M 

226. 

02B7 

DD 35 46 


DCR 

[X+NEW] 

227. 

02BA 

FD 35 46 


DCR 

[Y+NEW] 

228. 



• 

t 



229. 

02BD 

OB 


DCX 

B 

230. 

02BE 

IB 


DCX 

D 

231. 

02BF 

2B 


DCX 

H 

232. 

02C0 

3B 


DCX 

SP 

233. 

02C1 

DD 2B 


DCX 

X 

234. 

02C3 

FD 2B 


DCX 

Y 

235. 



• 

t 



236. 

02C5 

F3 


DI 


237. 

02C6 

10 FE 


rxrNZ 

$ 

238. 

02C8 

ED 42 


DSBB 

B 

239. 

02CA 

ED 52 


DSBB 

D 

240. 

02CC 

ED 62 


DSBB 

H 

241. 

02CE 

ED 72 


DSBB 

SP 

242. 

02D0 

FB 


El 


243. 

02D1 

08 


EXAF 


244. 

02D2 

D9 


EXX 


245. 

02D3 

76 


HLT 


246. 

02D4 

ED 46 


IM0 


247. 

02D6 

ED 56 


IM 


248. 

02D8 

ED 5E 


IM2 


249. 



r 



250. 

02DA 

DB 00 


IN 

0 

251. 

02DC 

ED AA 


IND 


252. 

02DE 

ED BA 


INDR 


253. 

02E0 

ED A2 


INI 


254. 

02E2 

ED B2 


INIR 


255. 



• 

t 



256. 

02E4 

ED 78 


INP 

A 

257. 

02E6 

ED 40 


INP 

B 

258. 

02E8 

ED 48 


INP 

C 

259. 

02EA 

ED 50 


INP 

D 

260. 

02EC 

ED 58 


INP 

E 

261. 

02EE 

ED 60 


INP 

H 

262. 

02F0 

ED 68 


INP 

L 

263. 



• 

t 



264. 

02F2 

3C 


INR 

A 

265. 

02F3 

04 


INR 

B 

266. 

02F4 

OC 


INR 

C 

267. 

02F5 

14 


INR 

D 
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268. 

02F6 

1C 


INR 

E 

269. 

02F7 

24 


INR 

H 

270. 

02F8 

2C 


INR 

L 

271. 

02F9 

34 


INR 

M 

272. 

02FA 

DD 34 46 


INR 

[X+NEW] 

273. 

02FD 

FD 34 46 


INR 

[Y+NEW] 

274. 



• 

/ 



275. 

0300 

03 


INX 

B 

276. 

0301 

13 


INX 

D 

277. 

0302 

23 


INX 

H 

278. 

0303 

33 


INX 

SP 

279. 

0304 

DD 23 


INX 

X 

280. 

0306 

FD 23 


INX 

Y 

281. 



• 

9 



282. 

0308 

DA 00 01 


JC 

STORE 

283. 

03 OB 

FA 00 01 


JM 

STORE 

284. 

03 OE 

C3 00 01 


JMP 

STORE 

285. 

0311 

18 FE 


JMPR 

$ 

286. 

0313 

D2 00 01 


JNC 

STORE 

287. 

0316 

C2 00 01 


JNZ 

STORE 

288. 

0319 

F2 00 01 


JP 

STORE 

289. 

031C 

EA 00 01 


JPE 

STORE 

290. 

031F 

E2 00 01 


JPO 

STORE 

291. 

0322 

38 FE 


JRC 

$ 

292. 

0324 

28 FE 


JRZ 

$ 

293. 

0326 

30 FE 


JRNC 

$ 

294. 

0328 

20 FE 


JRNZ 

$ 

295. 

03 2A 

CA 00 01 


JZ 

STORE 

296. 



• 

9 



297. 

03 2D 

ED 4B 00 01 


LBCD 

STORE 

298. 

0331 

0A 


LDAX 

B 

239. 

0332 

1A 


LDAX 

D 

300. 

0333 

3A 00 01 


LDA 

STORE 

301. 

0336 

ED 57 


LDAI 


302. 

0338 

ED A8 


LDD 


303. 

033A 

ED B8 


LDDR 


304. 

033C 

ED 5B 00 01 


LDED 

STORE 

305. 

0340 

ED AO 


LDI 


306. 

0342 

ED BO 


LDIR 


307. 

0344 

2A 00 01 


LHLD 

STORE 

308. 

0347 

DD 2A 00 01 


LIXD 

STORE 

309. 

03 4B 

FD 2A 00 01 


LIYD 

STORE 

310. 

03 4F 

ED 7B 00 01 


LSPD 

STORE 

311. 
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312. 

0353 

01 00 01 


LXI 

B,STORE 

313. 

0356 

11 00 01 


LXI 

D, STORE 

314. 

0359 

21 00 01 


LXI 

H,STORE 

315. 

03 5C 

31 00 01 


LXI 

SP,STORE 

316. 

035F 

DD 21 00 01 


LXI 

X,STORE 

317. 

0363 

FD 21 00 01 


LXI 

Y,STORE 

318. 



• 

9 



319. 

0367 

7F 


MOV 

A, A 

320. 

0368 

78 


MOV 

A,B 

321. 

0369 

79 


MOV 

A,C 
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322. 

036A 

7A 



MOV 

A,D 

323. 

036B 

7B 



MOV 

A, E 

324. 

036C 

7C 



MOV 

A,H 

325. 

036D 

7D 



MOV 

A,L 

326. 

036E 

7E 



MOV 

A,M 

327. 

036F 

DD 

7E 46 


MOV 

A, [X+NEW] 

328. 

0372 

FD 

7E 46 


MOV 

A, [Y+NEW] 

329. 




• 

/ 



330. 

0375 

47 



MOV 

B,A 

331. 

0376 

40 



MOV 

B,B 

332. 

0377 

41 



MOV 

B, C 

333. 

0378 

42 



MOV 

B,D 

334. 

0379 

43 



MOV 

B,E 

335. 

037A 

44 



MOV 

B,H 

336. 

037B 

45 



MOV 

B, L 

337. 

037C 

46 



MOV 

B,M 

338. 

037D 

DD 

46 46 


MOV 

B, [X+NEW] 

339. 

0380 

FD 

46 46 


MOV 

B, [Y+NEW] 

340. 




• 

/ 



341. 

0383 

4F 



MOV 

C,A 

342. 

0384 

48 



MOV 

C,B 

343. 

0385 

49 



MOV 

C,C 

344. 

0386 

4A 



MOV 

C,D 

345. 

0387 

4B 



MOV 

C,E 

346. 

0388 

4C 



MOV 

C f H 

347. 

0389 

4D 



MOV 

C,L 

348. 

03 8A 

4E 



MOV 

C,M 

349. 

03 8B 

DD 

4E 46 


MOV 

C, [X+NEW] 

350. 

03 8E 

FD 

4E 46 


MOV 

C,[Y+NEW] 

351. 




• 

/ 



352. 

0391 

57 



MOV 

D,A 

353. 

0392 

50 



MOV 

D,B 

354. 

0393 

51 



MOV 

D,C 

355. 

0394 

52 



MOV 

D,D 

356. 

0395 

53 



MOV 

D,E 

357. 

0396 

54 



MOV 

D,H 

358. 

0397 

55 



MOV 

D,L 

359. 

0398 

56 



MOV 

D,M 

360. 

0399 

DD 

56 46 


MOV 

D f [X+NEW] 

361. 

03 9C 

FD 

56 46 


MOV 

D, [Y+NEW] 

362. 




7 



363. 

03 9F 

5F 



MOV 

E, A 

364. 

03A0 

58 



MOV 

E,B 

365. 

03A1 

59 



MOV 

E,C 

366. 

03A2 

5A 



MOV 

E,D 

367. 

03A3 

5B 



HCN 

E,E 

368. 

03A4 

5C 



MOV 

E,H 

369. 

03A5 

5D 



MOV 

E,L 

370. 

03A6 

5E 



MOV 

E,M 

371. 

03A7 

DD 

5E 46 


MOV 

E, [X+NEW] 

372. 

03AA 

FD 

5E 46 


MOV 

E, [Y+NEJ"7] 

373. 




7 



374. 

03AD 

67 



MOV 

H,A 

375. 

03AE 

60 



MOV 

H,B 
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376. 

03AF 

61 





MOV 

H,C 

377. 

03 BO 

62 





MOV 

H r D 

378. 

03B1 

63 





MOV 

H,E 

379. 

03B2 

64 





MOV 

H,H 

380. 

03B3 

65 





MOV 

H,L 

381. 

03B4 

66 





MOV 

H,M 

382. 

03B5 

DD 

66 

46 



MOV 

H, [X+NEW] 

383. 

03B8 

FD 

66 

46 



MOV 

H,[Y+NEW] 

384. 






7 



385. 

03BB 

6F 





MOV 

L,A 

386. 

03BC 

68 





MOV 

L,B 

387. 

03BD 

69 





MOV 

L/C 

388. 

03BE 

6A 





MOV 

L,D 

389. 

03BF 

6B 





MOV 

L/E 

390. 

03C0 

6C 





MOV 

L,H 

391. 

03C1 

6D 





MOV 

L,L 

392. 

03C2 

6E 





MOV 

L/M 

393. 

03C3 

DD 

6E 

46 



MOV 

L,[X+NEW] 

394. 

03C6 

FD 

6E 

46 



MOV 

L,[Y+NEW] 

395. 
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396. 

03C9 

77 





MOV 

M,A 

397. 

03CA 

70 





MOV 

M/B 

398. 

03CB 

71 





MOV 

M/C 

399. 

03CC 

72 





MOV 

M/D 

400. 

03CD 

73 





MOV 

M/E 

401. 

03CE 

74 





MOV 

M,H 

402. 

03CF 

75 





MOV 

M,L 

403. 






• 

/ 



404. 

03D0 

DD 

77 

46 



MCV 

[X+NEW],A 

405. 

03D3 

FD 

77 

46 



MOV 

[Y+NEW],A 

406. 

03D6 

DD 

70 

46 



MOV 

[X+NEW],B 

407. 

03D9 

FD 

70 

46 



MOV 

[Y+NEW] f B 

408. 

03DC 

DD 

71 

46 



MOV 

[X+NEW]/C 

409. 

03DF 

FD 

71 

46 



MOV 

[Y+NEW] f C 

410. 

03E2 

DD 

72 

46 



MOV 

[X+NEW] ,D 

411. 

03E5 

FD 

72 

46 



MOV 

[Y+NEW]/D 

412. 

03E8 

DD 

73 

46 



MOV 

[X+NEW] f E 

413. 

03EB 

FD 

73 

46 



MOV 

[Y+NEW] f E 

414. 

03EE 

DD 

74 

46 



MOV 

[x+new] /H 

415. 

03F1 

FD 

74 

46 



MOV 

[Y+NEW]/H 

416. 

03F4 

DD 

75 

46 



MOV 

[X+NEW],L 

417. 

03F7 

FD 

75 

46 



MOV 

[Y+NEW],L 

418. 






• 

t 



419. 

03FA 

3E 

00 




MVI 

A,0 

420. 

03FC 

06 

00 




MVI 

B/0 

421. 

03FE 

0E 

00 




MVI 

C/0 

422. 

0400 

16 

00 




MVI 

D,0 

423. 

0402 

IE 

00 




MVI 

E/0 

424. 

0404 

26 

00 




MVI 

H,0 

425. 

0406 

2E 

00 




MVI 

L/0 

426. 

0408 

36 

00 




MVI 

M,0 

427. 

040A 

DD 

36 

46 

00 


MVI 

[X+NEW] /0 

428. 

040E 

FD 

36 

46 

00 


MVI 

[Y+NEW]/0 

429. 






• 

/ 
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430. 

0412 

ED 44 


NEE 


431. 

0414 

00 


NOP 


432. 

0415 

B7 


ORA 

A 

433. 

0416 

BO 


ORA 

B 

434. 

0417 

B1 


ORA 

C 

435. 

0418 

B2 


ORA 

D 

436. 

0419 

B3 


ORA 

E 

437. 

041A 

B4 


ORA 

H 

438. 

041B 

B5 


ORA 

L 

439. 

041C 

B6 


ORA 

M 

440. 

041D 

DD B6 46 


ORA 

[X+NEW] 

441. 

0420 

FD B6 46 


ORA 

[Y+NEW] 

442. 



• 

r 



443. 

0423 

F6 00 


ORI 

0 

444. 

0425 

ED BB 


OIDR 


445. 

0427 

ED B3 


OTIR 


446. 



• 

/ 



447. 

0429 

D3 46 


OUT 

NEW 

448. 

042B 

ED 79 


OUTP 

A 

449. 

042D 

ED 41 


OUTP 

B 

450. 

042F 

ED 49 


OUTP 

C 

451. 

0431 

ED 51 


OUTP 

D 

452. 

0433 

ED 59 


OUTP 

E 

453. 

0435 

ED 61 


OUTP 

H 

454. 

0437 

ED 69 


OUTP 

L 

455. 



• 

t 



456. 

0439 

ED A3 


OUTI 


457. 

043B 

ED AB 


OUTD 


458. 

043D 

E9 


PCHL 


459. 

043E 

DD E9 


PCIX 


460. 

0440 

FD E9 


PCIY 


461. 



• 

/ 



462. 

0442 

Cl 


POP 

B 

463. 

0443 

D1 


POP 

D 

464. 

0444 

El 


POP 

H 

465. 

0445 

FI 


POP 

PSW 

466. 

0446 

DD El 


POP 

X 

467. 

0448 

FD El 


POP 

Y 

468. 

044A 

C5 


PUSH 

B 

469. 

044B 

D5 


PUSH 

D 

470. 

044C 

E5 


PUSH 

H 

471. 

044D 

F5 


PUSH 

PSW 

472. 

044E 

DD E5 


RJSH 

X 

473. 

0450 

FD E5 


PUSH 

Y 

474. 



r 



475. 

0452 

17 


RAL 


476. 

0453 

CB 17 


RALR 

A 

477. 

0455 

CB 10 


RALR 

B 

478. 

0457 

CB 11 


RALR 

C 

479. 

0459 

CB 12 


RALR 

D 

480. 

045B 

CB 13 


RALR 

E 

481. 

045D 

CB 14 


RALR 

H 

482. 

045F 

CB 15 


RALR 

L 

483. 

0461 

CB 16 


RALR 

M 
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484. 

0463 

DD 

CB 46 

16 


RALR 

[X+NEW] 

485. 

0467 

FD 

CB 46 

16 


RALR 

[Y+NEW] 

486. 





• 

/ 



487. 

046B 

IF 




RAR 


488. 

046C 

CB 

IF 



RARR 

A 

489. 

046E 

CB 

18 



RARR 

B 

490. 

0470 

CB 

19 



RARR 

C 

491. 

0472 

CB 

1A 



RARR 

D 

492. 

0474 

CB 

IB 



RARR 

E 

493. 

0476 

CB 

1C 



RARR 

H 

494. 

0478 

CB 

ID 



RARR 

L 

495. 

047A 

CB 

IE 



RARR 

M 

496. 

047C 

DD 

CB 46 

IE 


RARR 

[X+NEW] 

497. 

0480 

FD 

CB 46 

IE 


RARR 

[Y+NEW] 

498. 
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499. 

0484 

D8 




RC 


500. 

0485 

CB 

87 



RES 

0,A 

501. 

0487 

CB 

80 



RES 

0,B 

502. 

0489 

CB 

81 



RES 

0,C 

503. 

048B 

CB 

82 



RES 

0,D 

504. 

048D 

CB 

83 



RES 

0,E 

505. 

048F 

CB 

84 



RES 

0,H 

506. 

0491 

CB 

85 



RES 

0,L 

507. 

0493 

CB 

86 



RES 

0,M 

508. 





• 

f 



509. 

0495 

CB 

8F 



RES 

1 f A 

510. 

0497 

CB 

88 



RES 

1,B 

511. 

0499 

CB 

89 



RES 

i,c 

512. 

049B 

CB 

8A 



RES 

1,D 

513. 

049D 

CB 

8B 



RES 

1/E 

514. 

049F 

CB 

8C 



RES 

1/H 

515. 

04A1 

CB 

8D 



RES 

1/L 

516. 

04A3 

CB 

8E 



RES 

1/M 

517. 





• 

r 



518. 

04A5 

CB 

97 



RES 

2,A 

519. 

04A7 

CB 

90 



RES 

2,B 

520. 

04A9 

CB 

91 



RES 

2,C 

521. 

04AB 

CB 

92 



RES 

2/D 

522. 

04AD 

CB 

93 



RES 

2,E 

523. 

04AF 

CB 

94 



RES 

2,H 

524. 

04B1 

CB 

95 



RES 

2,L 

525. 

04B3 

CB 

96 



RES 

2/M 

526. 





• 

f 



527. 

04B5 

CB 

9F 



RES 

3/A 

528. 

04B7 

CB 

98 



RES 

3,B 

529. 

04B9 

CB 

99 



RES 

3,C 

530. 

04BB 

CB 

9A 



RES 

3/D 

531. 

04BD 

CB 

9B 



RES 

3/E 

532. 

04BF 

CB 

9C 



RES 

3/H 

533. 

04C1 

CB 

9D 



RES 

3,L 

534. 

04C3 

CB 

9E 



RES 

3,M 

535. 





• 

/ 



536. 

04C5 

CB 

A7 



RES 

4, A 

537. 

04C7 

CB 

AO 



RES 

4,B 



PAGE 12 


ASM 3.11 Z-80 ASSEMBLER "ZASM.COM" OPCODES 


538. 

04C9 

CB 

A1 



RES 

4/C 

539. 

04CB 

CB 

A2 



RES 

4/D 

540. 

04CD 

CB 

A3 



RES 

4/E 

541. 

04CF 

CB 

A4 



RES 

4/H 

542. 

04D1 

CB 

A5 



RES 

4,L 

543. 

04D3 

CB 

A6 



RES 

4/M 

544. 





• 

t 



545. 

04D5 

CB 

AF 



RES 

5/A 

546. 

04D7 

CB 

A8 



RES 

5/B 

547. 

04D9 

CB 

A9 



RES 

5,C 

548. 

04DB 

CB 

AA 



RES 

5/D 

549. 

04DD 

CB 

AB 



RES 

5/E 

550. 

04DF 

CB 

AC 



RES 

5,H 

551. 

04E1 

CB 

AD 



RES 

5/L 

552. 

04E3 

CB 

AE 



RES 

5,M 

553. 





• 

/ 



554. 

04E5 

CB 

B7 



RES 

6, A 

555. 

04ET7 

CB 

BO 



RES 

6/B 

556. 

04E9 

CB 

B1 



RES 

6,C 

557. 

04EB 

CB 

B2 



RES 

6,D 

558. 

04ED 

CB 

B3 



RES 

6,E 

559. 

04EF 

CB 

B4 



RES 

6/H 

560. 

04F1 

CB 

B5 



RES 

6,L 

561. 

04F3 

CB 

B6 



RES 

6,M 

562. 





• 

t 



563. 

04F5 

CB 

BF 



RES 

7, A 

564. 

04F7 

CB 

B8 



RES 

7/B 

565. 

04F9 

CB 

B9 



RES 

7,C 

566. 

04FB 

CB 

BA 



RES 

7,D 

567. 

04FD 

CB 

BB 



RES 

7/E 

568. 

04FF 

CB 

BC 



RES 

7/H 

569. 

0501 

CB 

BD 



RES 

7,L 

570. 

0503 

CB 

BE 



RES 

7,M 

571. 





r 



572. 

0505 

DD 

CB 46 

86 


RES 

0,[X+NEW] 

573. 

0509 

FD 

CB 46 

86 


RES 

0,[Y+NEW] 

574. 

050D 

DD 

CB 46 

8E 


RES 

1/[X+NEW] 

575. 

0511 

FD 

CB 46 

8E 


RES 

1/[Y+NEW] 

576. 

0515 

DD 

CB 46 

96 


RES 

2,[X+NEW] 

577. 

0519 

FD 

CB 46 

96 


RES 

2,[Y+NEW] 

578. 

051D 

DD 

CB 46 

9E 


RES 

3/[X+NEW] 

579. 

0521 

FD 

CB 46 

9E 


RES 

3,[Y+NEW] 

580. 

0525 

DD 

CB 46 

A6 


RES 

4,[X+NEW] 

581. 

0529 

FD 

CB 46 

A6 


RES 

4,[Y+NEW] 

582. 

052D 

DD 

CB 46 

AE 


RES 

5,[X+NEW] 

583. 

0531 

FD 

CB 46 

AE 


RES 

5, [Y+NEW] 

584. 

0535 

DD 

CB 46 

B6 


RES 

6/[X+NEW] 

585. 

0539 

FD 

CB 46 

B6 


RES 

6,[Y+NEW] 

586. 

053D 

DD 

CB 46 

BE 


RES 

7,[X+NEW] 

587. 

0541 

FD 

CB 46 

BE 


RES 

7,[Y+NEW] 

588. 





• 

r 



589. 

0545 

C9 




RET 


590. 

0546 

ED 

45 



REIN 


591. 

0548 

ED 

4D 



RETT 
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592. 

054A 

07 




KLC 


593. 

054B 

CB 

07 



RLCR 

A 

594. 

054D 

CB 

00 



KLCR 

B 

595. 

054F 

CB 

01 



RLCR 

C 

596. 

0551 

CB 

02 



RLCR 

D 

597. 

0553 

CB 

03 



RLCR 

E 

598. 

0555 

CB 

04 



RLCR 

H 

599. 

0557 

CB 

05 



RLCR 

L 

600. 

0559 

CB 

06 



RLCR 

M 

601. 

055B 

DD 

CB 46 

06 


RLCR 

[X+NEW] 

602. 

055F 

FD 

CB 46 

06 


RLCR 

[Y+NEW] 

603. 





9 



604. 

0563 

ED 

6F 



RLD 


605. 

0565 

F8 




RM 


606. 

0566 

DO 




RNC 


607. 

0567 

CO 




RNZ 


608. 

0568 

FO 




RP 


609. 

0569 

E8 




RPE 


610. 

056A 

EO 




RPO 


611. 





• 

r 



612. 

056B 

OF 




RRC 


613. 

056C 

CB 

OF 



RRCR 

A 

614. 

056E 

CB 

08 



RRCR 

B 

615. 

0570 

CB 

09 



RRCR 

C 

616. 

0572 

CB 

OA 



RRCR 

D 

617. 

0574 

CB 

OB 



RRCR 

E 

618. 

0576 

CB 

OC 



RRCR 

K 

619. 

0578 

CB 

OD 



RRCR 

L 

620. 

057A 

CB 

OE 



RRCR 

M 

621. 

057C 

DD 

CB 46 

OE 


RRCR 

[X+NEW] 

622. 

0580 

FD 

CB 46 

OE 


RRCR 

[Y+NEW] 

623. 





7 



624. 

0584 

ED 

67 



RRD 


625. 

0586 

C7 




RST 

0 

626. 

0587 

CF 




RST 

1 

627. 

0588 

D7 




RST 

2 

628. 

0589 

DF 




RST 

3 

629. 

058A 

E7 




RST 

4 

630. 

058B 

EF 




RST 

5 

631. 

058C 

F7 




RST 

6 

632. 

058D 

FF 




RST 

7 

633. 





• 

9 



634. 

058E 

C8 




RZ 


635. 

058F 

9F 




SBB 

A 

636. 

0590 

98 




SBB 

B 

637. 

0591 

99 




SBB 

C 

638. 

0592 

9A 




SBB 

D 

639. 

0593 

9B 




SBB 

E 

640. 

0594 

9C 




SBB 

H 

641. 

0595 

9D 




SBB 

L 

642. 

0596 

9E 




SBB 

M 

643. 

0597 

DD 

9E 46 



SBB 

[X+NEW] 

644. 

059A 

FD 

9E 46 



SBB 

[Y+NEW] 

645. 





• 

9 
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646. 

059D 

ED 

43 00 01 


SBCD 

STORE 

647. 

05A1 

DE 

00 


SBI 

0 

648. 

05A3 

ED 

53 00 01 


SDED 

STORE 

649. 




• 

t 



650. 

05A7 

CB 

C7 


SET 

Of A 

651. 

05A9 

CB 

CO 


SET 

OfB 

652. 

05AB 

CB 

Cl 


SET 

0,C 

653. 

05AD 

CB 

C2 


SET 

0 f D 

654. 

05AF 

CB 

C3 


SET 

OfE 

655. 

05B1 

CB 

C4 


SET 

OfH 

656. 

05B3 

CB 

C5 


SET 

0 r L 

657. 

05B5 

CB 

C6 


SET 

OfM 

658. 
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659. 

05B7 

CB 

CF 


SET 

lfA 

660. 

05B9 

CB 

C8 


SET 

1,B 

661. 

05BB 

CB 

C9 


SET 

lfC 

662. 

05BD 

CB 

CA 


SET 

lfD 

663. 

05BF 

CB 

CB 


SET 

IfE 

664. 

05C1 

CB 

CC 


SET 

lfH 

665. 

05C3 

CB 

CD 


SET 

lfL 

666. 

05C5 

CB 

CE 


SET 

1,M 

667. 




7 



668. 

05C7 

CB 

D7 


SET 

2, A 

669. 

05C9 

CB 

DO 


SET 

2,B 

670. 

05CB 

CB 

D1 


SET 

2fC 

671. 

05CD 

CB 

D2 


SET 

2 f D 

672. 

05CF 

CB 

D3 


SET 

2fE 

673. 

05D1 

CB 

D4 


SET 

2,H 

674. 

05D3 

CB 

D5 


SET 

2,L 

675. 

05D5 

CB 

D6 


SET 

2,M 

676. 




• 

/ 



677. 

05D7 

CB 

DF 


SET 

3,A 

678. 

05D9 

CB 

D8 


SET 

3,B 

679. 

05DB 

CB 

D9 


SET 

3 fC 

680. 

05DD 

CB 

DA 


SET 

3,D 

681. 

05DF 

CB 

DB 


SET 

3 f E 

682. 

05E1 

CB 

DC 


SET 

3,H 

683. 

05E3 

CB 

DD 


SET 

3fL 

684. 

05E5 

CB 

DE 


SET 

3,M 

685. 




7 



686. 

05E7 

CB 

E7 


SET 

4fA 

687. 

05E9 

CB 

E0 


SET 

4,B 

688. 

05EB 

CB 

El 


SET 

4fC 

689. 

05ED 

CB 

E2 


SET 

4,D 

690. 

05EF 

CB 

E3 


SET 

4fE 

691. 

05F1 

CB 

E4 


SET 

4,H 

692. 

05F3 

CB 

E5 


SET 

4fL 

693. 

05F5 

CB 

E6 


SET 

4fM 

694. 




• 

/ 



695. 

05F7 

CB 

EF 


SET 

5,A 

696. 

05F9 

CB 

E8 


SET 

5fB 

697. 

05FB 

CB 

E9 


SET 

5 fC 

698. 

05FD 

CB 

EA 


SET 

5,D 

699. 

05FF 

CB 

EB 


SET 

5 f E 
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Z-80 ASSEMBLER "ZASM.COM" OPCODES 


700. 

0601 

CB EC 



SET 

701. 

0603 

CB ED 



SET 

702. 

0605 

CB EE 



SET 

703. 




• 

t 


704. 

0607 

CB F7 



SET 

705. 

0609 

CB FO 



SET 

706. 

060B 

CB FI 



SET 

707. 

06 0D 

CB F2 



SET 

708. 

06 OF 

CB F3 



SET 

709. 

0611 

CB F4 



SET 

710. 

0613 

CB F5 



SET 

711. 

0615 

CB F6 



SET 

712. 




• 

t 


713. 

0617 

CB FF 



SET 

714. 

0619 

CB F8 



SET 

715. 

06 IB 

CB F9 



SET 

716. 

061D 

CB FA 



SET 

717. 

061F 

CB FB 



SET 

718. 

0621 

CB FC 



SET 

719. 

0623 

CB FD 



SET 

720. 

0625 

CB FE 



SET 

721. 




• 

t 


722. 

0627 

DD CB 

46 C6 


SET 

723. 

062B 

FD CB 

46 C6 


SET 

724. 

062F 

DD CB 

46 CE 


SET 

725. 

0633 

FD CB 

46 CE 


SET 

726. 

0637 

DD CB 

46 D6 


SET 

727. 

063B 

FD CB 

46 D6 


SET 

728. 

063F 

DD CB 

46 DE 


SET 

729. 

0643 

FD CB 

46 DE 


SET 

730. 

0647 

DD CB 

46 E6 


SET 

731. 

06 4B 

FD CB 

46 E6 


SET 

732. 

06 4F 

DD CB 

46 EE 


SET 

733. 

0653 

FD CB 

46 EE 


SET 

734. 

0657 

DD CB 

46 F6 


SET 

735. 

06 5B 

FD CB 

46 F6 


SET 

736. 

06 5F 

DD CB 

46 FE 


SET 

737. 

0663 

FD CB 

46 FE 


SET 

738. 




• 

r 


739. 

0667 

22 00 

01 


SHLD 

740. 

066A 

DD 22 

00 01 


SIXD 

741. 

066E 

FD 22 

00 01 


SIYD 

742. 




t 


743. 

0672 

CB 27 



SLAR 

744. 

0674 

CB 20 



SLAR 

745. 

0676 

CB 21 



SLAR 

746. 

0678 

CB 22 



SLAR 

747. 

067A 

CB 23 



SLAR 

748. 

067C 

CB 24 



SLAR 

749. 

067E 

CB 25 



SLAR 

750. 

0680 

CB 26 



SLAR 

751. 

0682 

DD CB 

46 26 


SLAR 

752. 

0686 

FD CB 

46 26 


SLAR 

753. 




m 

t 



5/H 

5 f L 

5, M 

6 ,k 

6, B 
6,C 
6,D 
6 ,E 
6,E 

6 ,L 

6, M 

7, A 
7,B 

7 j-C 
7,D 
7/E 
7 fH 
7,L 
7,M 

0, [X+NEW] 

0, [Y+NEW] 

1, [X+NEW] 

1, [Y+NEW] 

2, [X+NEW] 

2 , [Y+NEW] 

3, [X+NEW] 

3, [Y+NEW] 

4/[X+NEW] 

4, [Y+NEW] 

5, [X+NEW] 

5, [Y+NEW] 

6, [X+NEW] 

6, [Y+NEW] 

7, [X+NEW] 

7, [Y+NEW] 

STORE 

STORE 

STORE 

A 

B 

C 

D 

E 

H 

L 

M 

[X+NEW] 

[Y+NEW] 

/ 
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754. 

06 8A 

F9 




SH3L 


755. 

06 8B 

DD 

F9 



SPIX 


756. 

06 8D 

FD 

F9 



SPIY 


757. 





/ 



758. 

06 8F 

CB 

2F 



SRAR 

A 

759. 

0691 

CB 

28 



SRAR 

B 

760. 

0693 

CB 

29 



SRAR 

C 

761. 

0695 

CB 

2A 



SRAR 

D 

762. 

0697 

CB 

2B 



SRAR 

E 

763. 

0699 

CB 

2C 



SRAR 

H 

764. 

06 9B 

CB 

2D 



SRAR 

L 

765. 

06 9D 

CB 

2E 



SRAR 

M 

766. 

06 9F 

DD 

CB 46 

2E 


SRAR 

[X+NEW] 

767. 

06A3 

FD 

CB 46 

2E 


SRAR 

[Y+NEW] 

768. 





r 



769. 

06A7 

CB 

3F 



SRLR 

A 

770. 

06A9 

CB 

38 



SRLR 

B 

771. 

06AB 

CB 

39 



SRLR 

C 

772. 

06AD 

CB 

3A 



SRLR 

D 

773. 

06AF 

CB 

3B 



SRLR 

E 

774. 

06B1 

CB 

3C 



SRLR 

H 

775. 

06B3 

CB 

3D 



SRLR 

L 

776. 

06B5 

CB 

3E 



SRLR 

M 

777. 

06B7 

DD 

CB 46 

3E 


SRLR 

[X+NEW] 

778. 

06 BB 

FD 

CB 46 

3E 


SRLR 

[Y+NEW] 

779. 





• 



780. 

06BF 

ED 

73 00 

01 


SSPD 

STORE 

781. 

06C3 

02 




STAX 

B 

782. 

06C4 

12 




STAX 

D 

783. 

06C5 

32 

00 01 



STA 

STORE 

784. 

06C8 

ED 

47 



STAI 


785. 

06CA 

37 




STC 


786. 





t 



787. 

06CB 

97 




SUB 

A 

788. 

06CC 

90 




SUB 

B 

789. 

06 CD 

91 




SUB 

C 

790. 

06CE 

92 




SUB 

D 

791. 

06CF 

93 




SUB 

E 

792. 

06D0 

94 




SUB 

H 

793. 

06D1 

95 




SUB 

L 

794. 

06D2 

96 




SUB 

M 

795. 

06D3 

DD 

96 46 



SUB 

[X+NEW] 

796. 

06D6 

FD 

96 46 



SUB 

[Y+NEW] 

797. 





• 

r 



798. 

06D9 

D6 

00 



SUI 

0 

799. 

06DB 

EB 




XCHG 


800. 





• 

r 



801. 

06DC 

AF 




XRA 

A 

802. 

06DD 

A8 




XRA 

B 

803. 

06DE 

A9 




XRA 

C 

804. 

06DF 

AA 




XRA 

D 

805. 

06E0 

AB 




XRA 

E 

806. 

06 El 

AC 




XRA 

H 

807. 

06E2 

AD 




XRA 

L 
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808. 

06E3 

AE 

XRA 

M 

809. 

06E4 

DD AE 46 

XRA 

[X+NEW] 

810. 

06E7 

FD AE 46 

XRA 

[Y+NEW] 

811. 



• 

/ 


812. 

06EA 

EE 00 

XRI 

0 

813. 

06 EC 

E3 

XTHL 


814. 

06ED 

DD E3 

XT IX 


815. 

06 EF 

FD E3 

XTIY 



0100 





ZASM.COM to ZIL n G cross refvran 


AC! 

t) 

ADC 

A/ N 

ADC 

B 

ADC 

A< A 

ADC 

B 

ADC 

A/ B 

ADC 

C 

ADC 

A, C 

ADC 

D 

ADC 

A/ D 

ADC 

E 

ADC 

A, E 

ADC 

H 

ADC 

A/ H 

ADC 

L 

ADC 

A, L 

ADC. 

M 

ADC 

A, <HL> 

ADC 

[ X + 0 3 

ADC 

A/ < I X + D )• 

ADC 

t Y + 0 3 

ADC 

A, <1 Y + D) 

ADD 

A 

ADD 

A, A 

ADD 

8 

ADD 

A/ B 

ADD 

C 

ADD 

A, C 

ADD 

D 

ADD 

A. D 

ADD 

E 

ADD 

A i E 

ADD 

H 

ADD 

A» H 

ADD 

l 

ADD 

A< L 

ADD 

M 

ADD 

A, <HL > 

ADD 

[ XtB 3 

ADD 

A, <IX+ D> 

ADD 

t Y + 0 3 

ADD 

A/ <1Y + D) 

ADI 

0 

ADD 

A< N 

AHA 

A 

AND 

A 

AHA ‘ 

B 

AMD 

B 

AHA 

C 

AH D 

C 

AHA 

D 

AND 

D 

AHA 

E 

AND 

E 

AHA 

H 

AND 

H 

AHA 

. L 

AND 

L 

AHA 

M 

AND 

C H L > 

AKA 

l X+0 3 

AND 

CIX+D) 

AHA 

[ Y+0 3 

AND 

(IY+D) 

AH 1 

0 

AND 

H 

BIT 

0, A 

BIT 

0. A 

BIT 

0/ 8 

BIT 

B, B 

BIT 

0. C 

BIT 

6, C 

BIT 

0/ D 

BIT 

0, D 

BIT 

0 • E 

BI T 

0. E 

BIT 

0, H 

BI T 

0. H 

BIT 

0/ l 

BIT 

0i L 

BIT 

0 / n 

BIT 

0/ <HL> 

BIT 

1, A 

BIT 

1. A 

BIT 

1, B 

BIT 

1. B 

BIT 

1, C 

BIT 

1/ C 

BIT 

l, D 

BIT 

1. D 

BIT 

1, E 

BIT 

1/ E 

BIT 

1. H 

' BIT 

1. H 

BIT 

1/ L 

BI T 

1. L 

BIT 

11 M 

BIT 

1* <HL> 

BIT 

2 j A 

BIT 

2, A 

BIT 

2, B 

BIT 

2> B 

BIT 

2, C 

BIT 

2, C 

BIT 

2, D 

BIT 

2, D 

BIT 

2, E 

BIT 

2, E 

BIT 

2, H 

BIT 

2, H 

BIT 

2, L 

BIT 

2, L 

BIT 

2, H 

BIT 

2/CHL) 

BIT 

3 > A 

BIT 

3< A 



BIT 

3. B 

BIT 

3. B 

BIT 

3i C . 

BIT 

3/ C 

BIT 

3< 0 

BIT 

3. D 

BIT 

3 j E 

BIT 

3. E 

BIT 

3< H 

BI T 

3, H 

BIT 

3, L 

BIT 

3 • L 

BIT 

3, H 

BIT 

3. (HL> 

BIT 

A, A 

BIT 

A, A 

BIT 

4, B 

BIT 

A, B 

BIT 

4 » C 

BIT 

4, C 

BIT 

A. 0 

BIT 

4. D 

BIT 

4 > E 

BIT 

4 > E 

BIT 

4 , H 

BIT 

4. H 

BIT 

A. L 

BIT 

4 $ L 

BIT 

4 • H 

BIT 

4, <HL> 

BIT 

5, A 

BIT 

5. A 

BIT 

5. B 

BI T 

5, B 

BIT 

5, C 

BI T 

5, C 

BIT 

5, B 

BIT 

5, D 

BIT 

5/ E 

BIT 

5, E 

BIT 

5* H 

BIT 

5 > H 

BIT 

5# L 

BIT 

5, L 

BIT . 

3* M 

BIT 

5, <HL> 

BIT 

6* A 

BIT 

6. A 

BIT 

6, B 

BIT 

6. B 

BIT 

6/ C 

BIT 

6, C 

BIT 

6, 0 

BIT 

6, 0 

BIT 

6 1 E 

BIT 

6, E 

BIT 

6, H 

BIT 

6. H 

BIT 

6, L 

BIT 

6. L 

BIT 

s, n 

BIT 

6. <HL> 

BIT 

7, A 

BIT 

7, A 

BIT 

7, B 

BIT 

7, B 

BIT 

7, C 

BIT 

7, C 

BIT 

7, D 

BIT 

7, 0 

BIT 

7, E 

BI T 

7, E 

BIT 

7, H 

BIT 

7, H 

BIT 

7, L 

BIT 

7, L 

BIT 

7, M 

BIT 

7, (HL) 

BIT 

0,C X + 03 

BIT 

e, ci x+d> 

BIT 

1,C X + 0 3 

BIT 

i» <IX+D > 

BIT 

2iC X + 0 3 

BI T 

Zi <IX+D > 

BIT 

3,C X + O 3 

BIT 

3# <IX + D > 

BIT 

4/CX + 0 3 

BIT 

4 , <I X+ D > 

BIT 

5, C X+0 3 

BI T 

S« < I X + D ) 

BIT 

6/£ X + 0 3 

- BIT 

6, < I X + D > 

BIT 

7 ,[X + 0 3 

BIT 

?, < I X + D ) 

BIT 

O,CY + 0 3 

BIT 

0 1 <IY+ D ) 

BIT 

1,C Y + O 3 

BI T 

l. <1 Y+D> 

BIT 

2 > £ Y + O 3 

BIT 

2, < I Y+ D ) 

BIT 

3,£ Y + O 3 

BI T 

3» <1 Y+D> 

BIT 

4/t Y + 0 3 

BIT 

4 > Cl Y + D> 

BIT 

5,[Y + 0 3 

BIT 

5. < I Y + D > 

BIT 

6,£Y + 0 3 

BIT 

6»<1Y+D) 

BIT 

7, C Y + 0 3 

BIT 

7, <IY + D > 

CALL 

0 

CALL 

HH 

CC 

0 

CALL 

Ci NN 

CCS 


CP D 




CCDR' 



CPDR 


CCI 



CPI 


CCIR 



CPIR 


CM 

0 


CALL 

M, NN 

CMA 



CPL 


CMC 



CCF 


CMP 

A 


CP 

A 

CMP 

B 


CP 

B 

CMP 

C 


CP 

C 

CMP 

D 


CP 

D 

CMP 

E 


CP 

E 

CMP 

H 


CP 

H 

CMP 

L 


CP 

L 

CMP 

M 


CP 

(HL) 

CMP 

£ X + 8 I 


CP 

(IX+D) 

CMP 

[ Y + O I 


CP 

(IY+D) 

CNC 

0 


CALL 

NC , HR 

CN2 

0 


CALL 

N2/ HN 

CP 

6 


CALL 

P, HH 

CPE 

0 


CALL 

PE, HH 

CPI 

0 


CP 

N 

CPO 

0 


CALL 

PO, HN 

C 2 

0 


CALL 

2, HN 

DAA 



DAA 


DAO 

B 


ADD 

HL, BC 

BAD 

D 


ADD 

HL, DE 

DAD 

H 


ADD 

HL, HL 

DAD 

SP 


ADD 

HL, SP 

DADX 

B 


ADD 

I X, BC 

DADX 

D 


ADD 

IX, DE 

DADX 

X 


ADD 

IX, IX 

DADX 

SP 


ADD 

IX, SP 

DA DC 

B 


ADC 

HL, BC 

D ADC 

D 


ADC 

HL, DE 

D A DC 

H 


ADC 

HL, HL 

D A DC 

SP 


ADC 

HL, SP 

DADY 

B 


ADD 

I Y, BC 

DADY 

D 


ADD 

IV, DE 

DADY 

Y 


ADD 

1 Y, I Y 

DADY 

SP 


ADD 

I Y, SP 

DCR 

A 


DEC 

A 

DCR 

B 


DEC 

8 

DCR 

C 


DEC 

C 

DCR 

D 


DEC 

D 

DCR 

E 


DEC 

E 

DCR 

H 

* 

DEC 

H 

DCR 

l 


DEC 


DCR 

M 


DEC 

(HL) 

DCR 

£ X*8 3 


DEC 

(IX+D) 

DCR 

£ Y + 0 3 


DEC 

(IY+ D) 

DCX 

B 


DEC 

BC 

DCX 

D 


DEC 

DE 

DCX 

H 


DEC 

HL 

DCX 

SP 


DEC 

SP 

DCX 

X 


DEC 

IX 

DCX 

Y 


DEC 

I Y 

D I 



DI 


DJH2 

$ 


DJNZ 

DIS 



DSBB' 

B 

BBC 

HL, BC 

BS8B 

D 

SBC 

HL, DE 

DSBB 

H 

SBC 

HL, HL 

DS8B 

SP 

S8C 

HL, SP 

El 


El 


EXAF 


EX 

AF,AF' 

EXX 


EXX 


HLT 


HALT 


I M 0 


I N 0 


INI 


INI 


I N 2 


I M 2 


IN 

8 

IN 

A > (N > 

I ND 


IND 


I NDR 


INDR 


INI 


INI 


I N IR 


IN IR 


I NP 

A 

IN 

A, <C > 

INP 

B 

IN 

B, <C> 

I NP 

C 

IN 

C, <C> 

INP 

D 

IN 

D > <C> 

I NP 

E 

IN 

E t <C> 

I NP 

H 

IN 

H, <C) 

INP 

L 

IN 

L< <C> 

I NR 

A 

INC 

A 

I NR 

B 

INC 

B 

I NR 

C 

INC 

C 

I NR 

D 

INC 

D 

INR 

E 

INC 

E 

INR 

H 

INC 

H 

INR 

l 

INC 

L 

INR 

N 

INC 

(HL) 

I NR 

t X + 0 3 

INC 

<IX+D) 

INR 

£ Y + 0 3 

INC 

<IY+D) 

I NX 

B 

INC 

8C 

I NX 

D 

INC 

DE 

I NX 

H 

INC 

HL 

I NX 

SP 

INC 

SP 

I N X 

X 

INC 

IX 

I N X 

Y 

INC 

I Y 

JC 

0 

JP 

C, NN 

JN 

0 

JP 

n, NN 

J M P 

0 

JP 

NN 

JHPR 

* 

JR 

DIS 

JNC 

0 

JP 

NC/ NN 

JNZ 

0 

JP 

NZ/ NN 

JP 

0 

' JP 

Pi NN 

JPE 

0 

JP 

PE, NN 

JPO 

0 

JP 

PO, NN 

JRC 

$ 

JR 

C. DIS 

JRNZ 

$ 

JR 

NZ,DIS 

JRNC 

S 

JR 

NC,D IS 

JRZ 

$ 

JR 

Z, DIS 

JZ 

0 

JP 

Z, NN 

L BCD 

0 

LD 

BC,< NN) 

LDAX 

B 

LD 

A, (BC) 

L D AX 

D 

LD 

A, (DE) 

LDA 

0 

LD 

A,(NN) 

LDAI 


LD 

A, I 



L D D 


LDD 


LDDR 


LD DR 


LDED 

8 

LD 

DEi(HN > 

LDI 


LDI 


LDIR 


LDIR 


L HLD 

8 

LD 

HLiCNN) 

L IXD 

8 

LD 

IXi<NN> 

L I YD 

0 

LD 

IYi<NN) 

L S PD 

8 

LD 

SPi(HH) 

L X I 

0/ 0 

LD 

BCi NH 

LXI 

D, 8 

LD 

DEi HN 

LXI 

H / 0 

LD 

HLiNN 

LXI 

SP, 0 

LD 

SP, NN 

LXI 

X. 0 

LD 

IXi NN 

LXI 

Y, 0 

LD 

IYi NN 

MOV 

0/ 0 

LD 

A i 0 

MOV 

0/ 8 

LD 

A i B 

MOV 

0 , C 

LD 

A, C 

MOV 

0 1 D 

LD 

A, D 

MOV 

0/ E 

LD 

A. E 

MOV 

0, H 

LD 

A, H 

MOV 

A • L 

LD 

Ai L 

MOV 

A , M 

LB 

A, ( H L > 

MOV 

8 * A 

LD 

8 i 0 

MOV 

8/ B 

LD 

Si B 

MOV 

8< C 

LD 

-B, C 

MOV 

8; D 

LD 

Bi D 

MOV 

8 > E 

LD 

Bi E 

MOV 

6 , H 

LD 

8i H, NN 

MOV 

8, L 

LD 

Bi L 

MOV 

B, M 

LD 

8, < HL> 

MOV 

C, 0 

LB 

Ci A 

MOV 

C, B 

LD 

Ci B 

MOV 

C, C 

LD 

Ci C 

MOV 

C, D 

LD 

Ci D 

MOV 

Ci E 

LD 

Ci E 

MOV 

Ci H 

LD 

Ci H 

MOV 

Ci L 

LD 

Ci L 

MOV 

Ci M 

LD 

C,<HL> 

MOV 

Di 0 

LD 

D, 0 

MOV 

Di 8 

LD 

D, 8 

MOV 

Di C 

LD 

D, C 

MOV 

Di D 

LD 

Di D 

MOV 

Di E 

LD 

Di E 

MOV 

Di H 

LD 

Di H 

MOV 

Di L 

LD 

Di L 

MOV 

Di M 

LD 

D,<HL> 

MOV 

Ei A 

LD 

Ei A 

MOV 

Ei B 

LD 

Ei 8 

MOV 

Ei C 

LD 

Ei C 

MOV 

Ei D 

LD 

E, D 

MOV 

Ei E 

LD 

E, E 

MOV 

Ei H 

LD 

E, H 

MOV 

Ei L 

LD 

E, L 

MOV 

Ei M 

LD 

£,<HL> 

MOV 

Hi 0 

LD 

Hi 0 

MOV 

Hi B 

LD 

Hi B 

MOV 

Hi C 

LD 

Hi C 


23 



MOV 

H, d 

LD 

Hi D 

MOV 

H, E 

LD 

H, E 

MOV 

H, H 

LD 

H, H 

MOV 

H, L 

LD 

H, L 

MOV 
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LD 

H, <HL> 

MOV 

Li A 

LD 

Li A 

MOV 

Li B 

LD 

Li B 

MOV 

Li C 

LD 

Li C 

MOV 

Li D 

LD 

L, D 

MOV 

Li E 

LD 

Li E 

MOV 

Li H 

LD 
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MOV 

Li L 

LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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MOV 
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LD 
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LD 
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MOV 
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LD 
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MOV 

Ci£ Y + 0 3 

LD 

C, <1 Y + D) 

MOV 

D,t Y + 0 3 

LD 

Di <1Y+D> 
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RES 
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M 
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RET 
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0 
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B 
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C 
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D 
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0 

ID 
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8 
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SET 
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SET 
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SET 
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SET 
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2, A 

SET 

2, B 

SET 

2, B 

SET 

2, C 

SET 

2, C 

SET 

2. D 

SET 

2, D 

SET 

2, E 

SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 
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SET 

5, < H L ) 

SET 
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SET 
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SET 

6. B 

SET 
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SET 
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SET 
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SECTION 2: GETTING CP/M RUNNING WITH THE INTERFACE 


One of the major problems confronting the implementers of new 
micro-computer systems, has been the lack of input/output (I/O) 
standards. The emergence of Digital Research's CP/M(r) disk 
operating system as a standard I/O environment has contributed greatly 
to alleviating this problem. Now the problem is reduced to 
implementing CP/M on the target hardware system, which consists of 
tailoring the BIOS part of CP/M to the situation. Unfortunately, 
since we can't assume any particular console interface at the factory, 
there is no way to make the system generation completely automatic. 

Because of all the different possible system configurations, and 
because we try to update our hardware and software as quickly as 
possible, it has been difficult to create and maintain a set of 
documentation that is useful and correct for getting our 
double-density floppy disk interface working under CP/M. These 
instructions represent a major rewrite effort in this direction. We 
hope that most of the faults in the earlier instructions have been 
corrected in this set. 

These instructions explain how to get the Tarbell Double Density 
Floppy Disk Interface going with Digital Research's CP/M 1.4 or 2.x 
disk operating system. It is important not to try and make more than 
one change in your system at a time. For example, if you wish to go 
from our single density interface operating under CP/M 1.4, to our 
double density interface operating DMA under CP/M 2.2 with a different 
memory size, DON'T try to do it all at once. First the single-density 
to double density, then to DMA, then to 2.2, then to different memory 
size. 


Be sure that the title of the instructions you are going to use, 
matches the situation you have. If it doesn't, and you can't seem to 
find one that does match, call or write to us, and we'll try to help. 
If you don't think you are capable of carrying' out the required 
instructions yourself, we can generate a customized system for you. 
Just have us send you an I/O tailoring questionaire. The cost is 
usually about $50. 

INSTALLATION NOTES 

1. The MWRITE option available on our board is only for those 
computers where the MWRITE is not generated directly from the bus 


signals 

PWR and 

SOUT. 

It is 

not intended as 

a 

substitute 

for 

the 

normal 

MWRITE 

line. 

which 

must be implemented 

somewhere on 

the 

bus 

(usually 

on the 

CPU or 

front 

panel) . 





2. 

Install the 

double 

density board as 

close to the 

CPU 

as 


possible, between the CPU and memory board(s). 
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INSTRUCTIONS FOR GETTING THE TARBELL DOUBLE DENSITY 
INTERFACE OPERATING WITH CP/M 1.4 WHEN YOU HAVE CP/M 

1.4 ALREADY GOING ON A TARBELL SINGLE-DENSITY INTERFACE 

1. First make sure that your situation matches the title above. 
If it doesn't, find another sheet that does match. 

2. Check the option jumpers on your double-density interface 
board against the manual to make sure the board is addressed for E0 
through F8 (hex), and that all other options are correct. 

Use your current single-density interface, operating under CP/M 1.4 
to do the following steps: 

3. Use the F0RMAT91 program on the public domain #2 disk 
(provided with the interface) to format at least two disks. DON'T use 
any of your old format programs to do this. When it says "READY TO 
FORMAT?" be SURE to get the public domain disk out of there before 
typing Y. Test the disks using the DISKTEST program. 

4. Put one of the newly formatted disks in drive B. Put a disk 
with your normal CP/M 1.4 system and system programs in drive A. Now 
perform the following steps: 

a) logged into drive A, type SYSGEN. Answer source as 
drive A, destination as drive B. Reboot. 

b) type PIP with no arguments, then the following steps. 

*B:=A:DDT.COM 

*B:=A:ASM.COM 
*B:=A:SYSGEN.COM 
*B:=A:ED.COM 

c) while still in PIP program, remove your system diskette 
from drive A, and insert into drive A the Public Domain #2 
diskette that came with the double-density interface. Then 
continue as shown below: 

*B:=A:ABIOS24.ASM 
*B:=A:DBOOT2 4.ASM 

5. Now take out the public domain disk #2 and put it aside. 
Take the newly formatted disk out of drive B and put it into drive A. 
Boot up on it. It should come up normally, since a copy of your 
system was just put onto it, 

6. Using ED.COM, edit the ABIOS24.ASM to change the EQU's for 
your memory size, console, printer, drives, etc. Leave the DMACNTL 
and DUBSID EQU's set to FALSE. Set the MSIZE EQU to the same size as 
the CP/M 1.4 system you are now running on this disk. Be sure to set 
the console port numbers correctly. Exit from the editor. Rename the 
file to ABIOSxx.ASM, where xx is your MSIZE. 

8. Assemble ABIOSxx with ASM.COM. Print the .PRN file if 
desired, then erase it. 

9. Using ED.COM, edit DB00T24.ASM. Set the MSIZE EQU to the 
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size used above. Leave the DOUBSID, DOUBDEN, and DMACNTL EQU's set to 
FALSE. Exit from the editor. Rename the file to DBOOTxx.ASM. 

10. Assemble DBOOTxx.ASM with ASM.COM. Print the .PRN file if 
desired, then erase it. 

11. Use SYSGEN to put a copy of your current CP/M 1.4 system 
onto the disk as a file. When it asks for source, answer A. When it 


asks for 

destination 

, press carriage- 

return 

to reboot. Then do a 

SAVE 

32 CPMxx. 

COM, where 

xx is 

your system 

size. 





12. 

Use DDT to 

bring 

in the 

CPMxx.COM 

file 

and to 

overlay 

the 

BIOS and 

BOOT hex 

files onto 

it. 

Type 

DDT ■ 

CPMxx.COM 

. Then 

type 

IABIOSxx. 

HEX . Then 

type 

Rbias where 

bias 

is in 

the table 

below: 


XX 

bias 

XX 

bias 


XX 

bias 

XX 

bias 


20 

D480 

24 

C4 80 


28 

B4 80 

32 

A4 80 


36 

9480 

40 

8480 


44 

7480 

48 

6480 


52 

5480 

56 

4480 


60 

3480 

64 

2480 



Now type IDBOOTxx.HEX . Then type R900 . Then do Ctl-C. 

13. Next enter SYSGEN. When it asks for source, press return to 
skip. When it asks for destination, type A. At this point you may 
write this system onto more than one disk. After you are finished 
writing onto the disk(s), DON'T press return to reboot. 

14. You can now shut off your computer, remove the single 
density interface, and put the double-density interface in. Then turn 
your computer back on. 

15. The system you have just written onto one or more disks 
should now boot up correctly on the double-density interface. If it 
doesn't, check over the BIOS and BOOT .PRN files to make sure all 
EQU's were set correctly. Check your board to verify again that all 
the jumper options are right. If you still can't get it going, read 
section 2-3 of these instructions. 

16. If the system does come up correctly, congratulations I You 
are now running the double-density interface in non-DMA mode. If you 
want to operate double-density next, see section 2-2 of these 
instructions. If you want to try operating in DMA mode, go to step 6 
in this section, changing the DMACNTL EQU to TRUE in both the BIOS and 
the BOOT .ASM files. The rest of the instructions are the same. 

IT. Finally, if you notice any errors in this documentation, 
PLEASE call or write about it. 



SECTION 2-2 


NOV 25, 1980 


T 


HOW TO MAKE THE TARBELL DOUBLE DENSITY INTERFACE OPERATE 

IN THE DOUBLE DENSITY MODE ASSUMING YOU HAVE THE DOUBLE 

DENSITY INTERFACE OPERATING IN THE SINGLE DENSITY MODE. 

1. Check your situation against the title above. If it doesn't 
match, look for other instructions that do. In order to operate in 
double density mode, you will either need to be operating at 4 or 
above 4 Mhz (Z80 or 8085), or you need to be operating in DMA mode. 
To set DMA mode, see step 16 of the instructions in section 2-1. 

2. Format some disks double density with DFORMAT, and test them 
using DTEST. 

3. If you boot up on a single density system which was created 
using the auto-select I/O section (ABIOS or 2ABIOS), all you have to 
do is put the formatted double-density diskette in drive B. Files may 
be transferred to the new double density disk using PIP. Don't try to 
use the COPY utility to copy from single density to double density or 
vise-versa. 

4. If you want to put a system from the first two tracks on the 
single density disk onto a double density disk, SYSGEN alone will not 
work. This is because the first sector of the first track contains a 
byte which has to be DD (hex) for double density, and your 
single-density disk doesn't have that byte. To perform this operation 
correctly, follow these steps: 

a) On your single density disk, edit the file called DBOOTxx.ASM 
to change the DOUBDEN EQU from FALSE to TRUE. It is important 
that the MSIZE match your current CP/M system size (xx). 

b) Assemble the new file: ASM DBOOTxx 

c) Do a SYSGEN, answering source on A, skip the destination and 
reboot. Enter SAVE 34 CPMxx.COM where xx is system size. 

d) Then overlay the CPMxx.COM system image with the new DBOOT: 

DDT CPMxx.COM 
IDBOOTxx.HEX 
R900 

e) Then press control-C to return to CP/M. 

f) Type B:,<cr> to log in drive B. 

Type A:,<cr> 

g) Then do another SYSGEN, this time skipping the source, and 
answering B to the destination. (This assumes you still have 
your double-density disk in B.) 

5. Now you can take the double density disk out of drive B and 
put it into drive A and boot up on it. 
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WHAT TO DO IF YOUR TARBELL DOUBLE DENSITY 
FLOPPY INTERFACE IS NOT WORKING 

1. Recheck the jumper options on the interface board against 
your manual in section 6. Note that manuals of boards rev B and 
earlier have an error in the board addressing section. People with 
these manuals can get a new manual free by sending us the cover of 
their old manual. 

2. Recheck the EQU's in the BIOS and BOOT .ASM files to make 
sure that all are set correctly. 

3. If you have a friend with a working Tarbell Double 
Interface, try using your interface in his computer. If his works and 
yours doesn't, there is probably something actually wrong with your 
interface. If so, you might want to consider sending it back to 
Tarbell for repair. If your interface does work in your friend's 
computer, the problem might be in your software, or in some other 
component of your system. Just because the other components of your 
system work under other circumstances, doesn't mean that there is 
nothing wrong with them. 

4. Another thing to check is the diskette that you're using. 
Is it formatted correctly? How do you know it is? 

5. Do you have dynamic memory in your computer. If so, how is 
it refreshed? It is possible that the way it is refreshed interferes 
with our interface, or that the way our interface works interferes 
with the memory's refresh circuitry. 

6. Does your CPU board fully implement the new IEEE S-100 
standard? In particular, does it use pin 67 (the phantom line) for 
anything besides phantom? Does it implement the control-disable, 
data-disable, and status-disable lines? Does it implement the PSYNC, 
PHOLD, and PHLDA lines? Neither the SDS SBC-100 or SBC-200 CPU boards 
meet this requirement. 

7. Does the memory which occupies address 0000 in your system 
have a phantom line on pin 67? 

8. Do you have other boards in your system that use the XRDY 
and PRDY lines (pins 3 and 72) besides the Tarbell interface and the 
CPU? If so, it might be best to disconnect those lines completely. 

9. Since the Tarbell Double Density Floppy Disk Interface uses 
lines on your motherboard that aren't normally used, some of these 
lines could be shorted or open, or the connector pins could be dirty. 

10. Check your system power supply, with a scope if possible, to 
make sure that all your voltages are steady, clean, and the right 
level, both on the drives and the motherboard. It is very important 
that on the drive power supply, the 24 volt, 5 volt, and -5 volt 
returns be connected together at the power supply end. 
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11. If you are having problems with the bootstrap, it's possible 
that C17 is not quite the right value to reduce the effects of ringing 
on the bus. You might try 100, 220, 390, 470, or 680 pf capacitors, 
in that order. The symptom is that the bootstrap flip-flop gets reset 
before it has a chance to read a complete sector if the value of C17 
is to too small, or, the bootstrap will not release soon enough if the 
value of C17 is to big. The value of C17 is not as critical as it may 
seem, but it's value in some cases will be controlled to some extent 
by the noise and impedance effects of your computer bus. If you have a 
good fast scope, you can observe the bootstrap operation by looking at 
pin 19 on the 8257. This is the DRQ line, and it should be a series 
of short pulses that happen over a period of about 2 ms. If they 
don't last that long, you may have to adjust C17. 

12. If the DRQ line mentioned above never goes high at all, that 
means the interface is never receiving a valid data byte. This could 
be caused by a variety of factors, including a bad data separator 
component, bad 1793, bad drive, etc. 

13. If the interface is picking up excessive errors after 
warming up, it could be the 1793. We are now testing these IC's more 
carefully. 

*** NOTE *** 

If you decide to send the interface back for repair, be sure to 
include a copy of your receipt, showing the date you bought it. 
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INSTRUCTIONS FOR GETTING THE TARBELL DOUBLE DENSITY 
INTERFACE OPERATING WITH CP/M 2.x WHEN YOU HAVE CP/M 

2.x ALREADY GOING ON A TARBELL SINGLE-DENSITY INTERFACE 

1. First make sure that your situation matches the title above. 
If it doesn't, find another sheet that does match. 

2. Check the option jumpers on your double-density interface 
board against the manual to make sure the board is addressed for E0 
through F8 (hex), and that all other options are correct. 

Use your current single density interface, operating under CP/M 2.x 
to do the following steps; 

3. Use the FORMAT91 program on the public domain #2 disk 
(provided with the interface) to format at least two disks. DON'T use 
any of your old format programs to do this. When it says "READY TO 
FORMAT?" be SURE to get the public domain disk out of there before 
typing Y. Test the disks using the DISKTEST program. 

4. Put one of the newly formatted disks in drive B. Put a disk 
with your normal CP/M 2.x system and system programs in drive A. Now 
perform the following steps; 

a) logged into drive A, type SYSGEN. Answer source as 
drive A, destination as drive B. Reboot. 

b) type PIP with no arguments, then the following steps. 
*B:=A:CPM.COM 

*B;=A;DDT.COM 
*B;=A;ASM.COM 
*B;=A;SYSGEN.COM 
*B;=A;ED.COM 

c) while still in the PIP program, remove your system diskette 
from drive A, then insert into drive A the Public Domain #2 
diskette that came with the double-density interface. Then 
continue as shown below; 

*B;=A;2ABIOS24.ASM 
*B;=A;2DBOOT2 4.ASM 

5. Now take out the public domain disk #2 and put it aside. 
Take the newly formatted disk out of drive B and put it into drive A. 
Boot up on it. It should come up normally, since a copy of your 
system was just put onto it. 

6. Using ED.COM, edit the 2ABIOS24.ASM to change the EQU's for 
your memory size, console, printer, drives, etc. Leave the DMACNTL 
and DUBSID EQU's set to FALSE. Set the MSIZE EQU to the same size as 
the CP/M 2.x system you are now running on this disk. Be sure to set 
the console port numbers correctly. If you have Shugart 800 drives, 
don't set the step rate any faster than 10 ms. Exit from the editor. 
Rename the file to 2ABIOSxx.ASM, where xx is your MSIZE. 

8. Assemble 2ABIOSxx with ASM.COM. Print the .PRN file if 
desired, then erase it. 
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9. Using ED.COM, edit 2DBOOT24.ASM. Set the MSIZE EQU to the 
size used above. Leave the DOUBSID and DMACNTL EQU's set to FALSE. 
Exit from the editor. Rename the file to 2DBOOTxx.ASM. 

10. Assemble 2DBOOTxx.ASM with ASM.COM. Print the .PRN file if 
desired, then erase it. 

11. Use SYSGEN to put a copy of your current CP/M 2.x system 
onto the disk as a file. When it asks for source, answer A. When it 
asks for destination, press carriage-return to reboot. Then do a SAVE 
34 CPMxx.COM, where xx is your system size. 

12. Use DDT to bring in the CPMxx.COM file and to overlay the 
BIOS and BOOT hex files onto it. Type DDT CPMxx.COM . Then type 
I2ABIOSxx.HEX . Then type Rbias where xx is MSIZE and bias is in the 
table below: 


XX 

bias 

XX 

bias 

XX 

bias 

XX 

bias 

20 

D580 

24 

C5 80 

28 

B5 80 

32 

A5 80 

36 

9580 

40 

8580 

44 

7580 

48 

6580 

52 

5580 

56 

4580 

60 

3580 

64 

2580 


Now type l2DB00Txx.HEX . Then type R900 . Then do Ctl-C. 

13. Next enter SYSGEN. When it asks for source, press return to 
skip. When it asks for destination, type A. At this point you may 
write this system onto more than one disk. After you are finished 
writing onto the disk(s), DON'T press return to reboot. 

14. You can now shut off your computer, remove the 
single-density interface, and put the double-density interface in. 
Then turn your computer back on. 

15. The system you have just written onto one or more disks 
should now boot up correctly on the double-density interface. If it 
doesn't, check over the BIOS and BOOT .PRN files to make sure all 
EQU's were set correctly. Check your board to verify again that all 
the jumper options are right. If you still can't get it going, read 
section 2-3 of these instructions. 

16. If the system does come up correctly, congratulations! You 
are now running the double-density interface in non-DMA mode. If you 
want to operate double-density next, see section 2-2 of these 
instructions. If you want to try operating in DMA mode, go to step 6 
in this section, changing the DMACNTL EQU to TRUE in both the BIOS and 
the BOOT .ASM files. The rest of the instructions are the same. 

17. Finally, if you notice any errors in this documentation, 
PLEASE call or write about it. 
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GETTING THE TARBELL VERSION OF CP/M 1.4 OR 2.X RUNNING ON 

YOUR TARBELL DOUBLE-DENSITY FLOPPY DISK INTERFACE WITHOUT 
A CURRENTLY RUNNING CP/M SYSTEM OF ANY KIND 

1. First make sure that your situation matches the title above. 
If not, you may find that another set of instructions will get your 
system going sooner. 

2. You need to have the following hardware installed: 

a) An assembled and tested Tarbell Double Density Interface 

b) At least 24k bytes of random access memory, of which at 
least the first 32 bytes can be disabled by phantom line 
pin 67 going low. 

c) A Z-80, 8085, or 8080 CPU board which conforms to the IEEE 
S-100 standard. 

d) A console interface of some type, preferably not memory- 

mapped video, which supports an alphanumeric keyboard and 
a CRT display or teleprinter. If possible, this interface 
should be addressed for status on port 0, data on port 1, 
with bit 0 of the status low meaning keyboard ready, and 

with bit 7 of the status low meaning CRT display ready. 

If these port and status requirements are met, the Tarbell 
CP/M 1.4 or 2.x disks for the DD controller should boot up 
with no further work. Just put the disk in, push reset, 

and run. Skip to step 8 if so. If not, you will need to 

fulfill the requirements of substep (e) below and continue. 

e) Either a front panel or a ROM monitor (any ROM should be 
outside the 24k RAM), which allows depositing bytes into 
specified RAM addresses and executing at an address. 

3. If possible, have a friend make a copy of your original CP/M 
disk, and don't use it except to make further copies. Then use the 
copy for the following steps. 

4. Turn the computer on, then the CRT-keyboard, then the drive 

power. 

5. Put the CP/M disk into the disk drive (on most drives, the 
label on the disk should face the door of the drive). Close the door. 
Push reset (and run if you have one) buttons on the computer. 

6. The head should load against the disk and move in one track. 
If it doesn't do this, something is wrong with the hardware setup, and 
you should try a few times more. If it still doesn't do it, FIRST 
remove the diskette, then shut down the system. Something is either 
wrong with the hardware or the diskette. If so, have someone look at 
it or call Tarbell. If it does load and step ok, go onto the next 
step. 


7. Either stop the computer from running, if you have a front 
panel, or jump into your ROM monitor, if you have one. 

8. Look at the BIOS (Basic Input Output System) listing that 
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came with our CP/M. Find the label BOOT. After the LXI SP 
instruction, you will see a series of NOP's. This area is reserved 
for initializing console interfaces that require it. Using either 
front panel or ROM, deposit the initialization routine required, if 
any, at the address indicated by the listing. There should be a copy 
of any required initialization routine in the manual on your console 
interface. Assembly language code for the initialization of some 
common console interfaces can be seen in the following lines on the 
page. 


9. Still looking at the BIOS listing, find the label CONST. 
Examine the code there for our "standard" interface. Put the code 
here to do a status check on your console interface. Notice that if 
your status bits are true when high, instead of low like ours, you 
will need to change the RNZ to an RZ. Other changes which might be 
required are the port number after the IN, and the mask after the ANI. 
Check your console interface manual for examples and instructions. 

10. The next routine is labeled CONIN. Deposit the code to read 
a byte from your console keyboard into register A. Notice that you 
might need to make similar changes, such as JNZ to JZ, mask, and port 
numbers. 

11. The last routine to change is labeled CONOT. Deposit the 
code to write the byte in register C to your console. Again, you 
might need to replace our JNZ with a JZ and make port number and mask 
changes. Be sure to end each of these routines with an RET 
instruction. 

12. This should be all the patches you need to make to the CP/M 
system residing in memory, to get going temporarily. Now examine the 
content of address 5A00 (hex), which should be a C3 (hex for JMP) and 
execute (run) at that location. 

13. Our BIOS should give you an opening message. If so, you're 
on the air, so go to step 14. If not, the system may not have loaded 
properly, and something may be wrong with the diskette or hardware 
setup. In that case, refer to section 2-3. 

14. If you haven't already done so, copy the system and files 
onto another disk. In order to do this, keep your system disk in 
drive A and put a blank disk into drive B. Then type: COPY ALL. This 
will copy your original disk onto the blank disk. Note that the 
system you are running is only in memory, and the system on the disk 
hasn't yet been modified. Leave the new disk in drive B until you 
press return to reboot. Then take the original disk out of drive A 
and never use it again except to copy it. Now remove the copy you 
made from drive B and label it exactly the same as the original. You 
will find that it is important to keep the disk labels current, as it 
is easy to get confused and make a mistake. Put the new copy into 
drive A for further work. Then press Ctl-C. 

15. The next thing to do is edit the BIOS and BOOT .ASM files 
and overlay them onto your system. Use the method described in the 
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Tarbell CP/M 1.4 or 2.x User's Guide, as this will properly document 
all your changes and allow you to make use of memory larger than 24k. 

16. The latest ABIOS (Auto-density select Basic Input Output 
System) is always available from Tarbell for $15. Just ask for Public 
Domain Disk # 2. 
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This is a disk which is regularly updated with our latest ABIOS 
and 2ABIOS for the Tarbell Double Density Floppy Disk Interface. 
Other utilities are also maintained on this disk, such as format and 
test routines. We also had room to include the source for the FORTH 
language from the Forth Interest Group. Their name and address are 
included on the .ASM file. Following is a short description of each 
file. For further information, see the comments in the file itself, 
or the Tarbell CP/M User's Guide. The latest version of this disk is 
always available within 1 week from Tarbell for $15. If you are 
having problems, it's always wise to see if there is a newer version 
of this disk available than the one you have. 

1. DBOOT24.ASM 

This is the secondary coldstart loader for CPM 1.4 only. 

2. DDUMP.ASM & DDUMP.COM 

THIS IS A MODIFIED DUMP.COM FROM SAM SINGER AND FROM THE CP/M 
USERS GROUP. THIS PROGRAM WILL ALLOW YOU TO VIEW ONLY TRACKS 2 - 76 OF 
A DOUBLE DENSITY DISK. THE ONLY LIMITATION IN THE PROGRAM IS THAT IT 
WILL NOT DUMP BY GROUP NUMBERS. ALL OTHER FEATURES ARE USEABLE. 

3. DFORMAT.ASM & DFORMAT.COM 

This is the double density format program. It will also format a 
double sided disk if asked to. This format program formats track 0 = 

26, 128 byte sectors, tracks 1-76 in 51, 128 bytes sectors. 

4. DTEST.ASM & DTEST.COM 

THIS PROGRAM IS USED TO TEST A DOUBLE DENSITY DISK FOR ERRORS. 
WHEN THE PROGRAM FIRST COMES UP IT WILL ASK YOU FOR A "TITLE:". YOU 
MAY TYPE IN ANYTHING YOU WANT SUCH AS FORMATTED WITH 62.5 NSEC,187.5 
NSEC> AND THEN A CNTL-P, CARRIAGE RET, OR IF YOU DON'T WANT TO TYPE 
ANYTHING, JUST TYPE A CARRIAGE RET. THE TITLE ALLOWS YOU TO KEEP A 
RUNNING TAB ON THE ERRORS AND USING CNTL-P WILL TURN ON THE LIST 
DEVICE FOR MAKING A HARDCOPY LISTING. THE NEXT QUESTION WILL BE 
STARTING TRACK. YOU MUST ANSWER THIS WITH A TRACK NUMBER OF 0 OR 
GREATER. THE REST OF THE PROGRAM SHOULD BE CLEAR. THIS PROGRAM READS 
A TRACK AT A TIME AND KEEPS A RUNNING TAB OF ERRORS FOUND. DURING THE 
READING OF THE TRACK, IF A SECTOR IS BAD IT WILL DISPLAY THE SECTOR 
NUMBER AND THE NUMBER OF RETRYS IT TOOK TO READ IT. IT SHOULD BE NOTED 
THAT IT WILL DO 11 RETRYS MAX, AND THEN GO ON TO THE NEXT SECTOR. IF 
IT TAKES MORE THAN 10 RETRYS, THEN YOU SHOULD REFORMAT THE DISK AND 
CHECK IT AGAIN, AS OUR DBIOS ONLY DOES 10 RETRYS BEFORE INDICATING A 
FAILURE. RETRYS ON THE ORDER OF 1 TO 5 IS TYPICAL, IF THEY OCCUR AT 
ALL, WITH THIS INTERFACE. THIS PROGRAM DOES NOT WRITE ON THE DISK, IT 
IS READ ONLY. 

5. FORMAT.ASM & FORMAT.COM 

IF YOU ARE USING OUR OLD SINGLE DENSITY FORMAT PROGRAM, YOU WILL 
NOT BE ABLE TO READ THEM ON THE NEW INTERFACE IN SINGLE DENSITY. THIS 
IS BECAUSE THERE IS A BYTE IN THE INNER RECORD GAPS THAT THE 1771 WILL 
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READ BUT THE 1791/1793 WON'T. THIS FORMAT PROGRAM FIXES THAT PROBLEM 
FOR BOTH THE 17 91/17 93 AND WILL STILL ALLOW YOU TO USE IT WITH YOUR 
PRESENT 1771 CONTROLLER ALSO. YOU SHOULD DESTROY AND OLD COPIES OF THE 
OLD FORMAT PROGRAM YOU HAVE, AND USE THIS ONE FROM HERE ON OUT. THIS 
PROGRAM ALSO FORMATS A DOUBLE SIDED DISK. 

*** NOTE *** 


THIS FORMATS SINGLE DENSITY ONLY, 26 SECTORS OF 128 BYTES AND 
ONLY RUNS ON THE NEW CONTROLLER BOARD. 

6. FORMAT91.ASM & FORMAT91.COM 

This program will only run on the single-density interface. It 
will format disks in standard IBM single-density format, to read 
correctly on the double density interface. 

7. DFRAND.ASM 


This is another format program, which only runs on the 
double-density interface, and which formats disks double-density in a 
random format. This is very useful to use in conjunction with the 
DTEST program, while setting up precomp. It gives a more realistic 
representation of the way that data may be present on the disk. Do 
NOT use this program to format disks that are to be used next with 
CP/M, as the directory needs to be filled with E5's. 

8. MACRO.LIB & SKEW.LIB 


THIS LIBRARY IS NECESSARY IF YOU HAVE DIGITALS MACRO ASSEMBLER 
AND WISH TO CHANGE AND ASSEMBLE DDUMP.ASM AND DTEST.ASM. THESE 
PROGRAMS USE MACROS. 


9. STAT.COM (FOR CPM VI.4 ONLY) 


THIS IS AN UPDATED VERSION OF THE STAT PROGRAM FOR THE ORIGINAL 
DISTURBUTION. IT FUNCTIONS THE SAME AS THE OLD ONE. THE ONLY 
IMPROVEMENT WAS TO MAKE IT DISPLAY THE CORRECT CAPACITY OF A DOUBLE 
DENSITY DISK. IT WILL STILL WORK SINGLE DENSITY. 

10. ABIOS24.ASM 

THIS IS THE AUTO-DENSITY SELECT VERSION OF THE BIOS FOR CPM 
VI.4. THIS BIOS WILL AUTOMATICALLY SELECT THE DENSITY OF THE DISK YOU 
ARE USING IN EITHER DRIVE, AND WILL ALLOW YOU TO CHANGE THE DENSITY AT 
ANY TIME. IF YOU ARE GOING TO CHANGE THE DENSITY OF THE "A" DRIVE, 
YOU MUST HAVE A DISK WITH THE SAME SYSTEM SIZE AS THE ONE YOU REMOVED. 
FILE TRANSFERS FROM SINGLE TO DOUBLE OR DOUBLE TO SINGLE IS COMPLETELY 
AUTOMATIC. YOU MUST SET DOUBDEN = TRUE BEFORE YOU USE THE 
AUTO-DENSITY CAPABILITY OF ABIOS24.ASM, AS THIS IS THE ONLY WAY THE 
PROGRAM KNOWS IT IS LOOKING FOR A DOUBLE DENSITY DISK IN ANY DRIVE. 

11. 2ABIOS24.ASM 
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THIS IS THE AUTO-DENSITY SELECT VERSION FOR CPM V2 .X AND THE NEW 
INTERFACE. THIS BIOS MUST BE USED WITH 2DBOOT24.ASM TO BRING UP THE 
SYSTEM. PLEASE NOTE THAT 2ABIOS24 AND 2DBOOT24 ARE ONLY FOR CPM V2.X 
AND WILL NOT RUN ON CPM VI.4 OR CONVERSELY. 

*** NOTE *** 

YOU MUST SET DMACNTL = TRUE IF YOU WILL BE RUNNING DOUBLE 
DENSITY at 2 MHz. 

12. 2DBOOT24.ASM 

THIS IS THE SECONDARY COLD START LOADER FOR CPM V2.x FOR USE 
WITH 2ABIOS24.ASM. SEVERAL EQU'S APPEAR IN THIS LOADER. DMACNTL - 
SETTING THIS TRUE WILL ALLOW THE PROGRAM TO BOOT IN THE SYSTEM USING 
DMA CONTROL. IF FALSE, BOOTS SYSTEM UNDER PROGRAM DATA TRANSFER. 
DOUBDEN - SETTING THIS TRUE PUTS THE SPECIAL ID BYTE INTO THE DISK 
DURING GENERATION OF A DOUBLE DENSITY SYSTEM DISK THAT WILL BE BOOTED 
IN FROM DRIVE 'A'. SETTING THIS FALSE ALLOWS BUILDING A SYSTEM ON A 
SINGLE DENSITY DISK. THIS BYTE IS HOW THE SYSTEM KNOWS WHETHER OR NOT 
A SINGLE OR DOUBLE DENSITY IS ON LINE. 

**** NOTE **** 

IF YOU HAVE TROUBLE READING A SINGLE DENSITY DISK ON THIS 
CONTROLLER, YOU MAY HAVE A DISK WITH THE WRONG SECTOR FORMATTING. TO 
FIND OUT, TAKE ANOTHER DISK AND USE THE NEW FORMAT.COM FILE ON THIS 
DISK TO REFORMAT IT. THEN USING YOUR OLD CONTROLLER, TRANSFER ALL THE 
PROGRAMS YOU WISH TO SAVE FROM THE DISK THAT WOULD NOT RUN ON THE NEW 
CONTROLLER BOARD TO THE NEWLY FORMATTED DISK. WE REALIZE THAT THIS IS 
ALSO A REAL HASSEL TOO, BUT IT IS A NECESSARY EVIL. BESIDES, THE NEW 
FROMATTED DISK WILL STILL WORK WITH THE OLD CONTROLLER BOARD. 

*** NOTE *** 

IF ALL ELSE FAILS, EVEN AFTER READING THE DIRECTIONS, FEEL FREE 
TO CALL ME HERE AT TARBELL ELECTRONICS. AND IF YOU WOULD LIKE TO 
DISCUSS ANYTHING ABOUT THE BOARD OR SOFTWARE, CALL ME. 

THANKS FOR INPUTS AND OUTPUTS ON THIS PRODUCT AND HOPE YOU WILL 
FIND THIS PRODUCT BOTH INFORMATIVE AND FUN TO WORK WITH. 

GERALD.W.MULCHIN 
ENGINEERING DEPT. 

TARBELL ELECTRONICS 
213 538 4251 
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TARBELL CP/M* 2.0 USER'S GUIDE 


This guide was written to help users of TARBELL CP/M get up as 
quickly as possible, and to complement the CP/M manuals from 
Digital Research. It is best to read this guide before attempting 
to use CP/M, in order to avoid various pitfalls. 
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Getting Your Tarbell CP/M System Up and Going 

1. Be sure that you have successfully completed the Checkout 
section of the Tarbell Floppy Disk'Interface Manual. 

2. On the Floppy Disk Interface (FDI), set switches 1 to 5 off, 
(device address = F8-FC), switch 6 on (write-protected), 
and switch 7 on (bootstrap enabled). 

3. Turn on your computer, then the disk drive and power supply. 

4. Press Reset on the computer. 

5. Insert the CP/M disk into the drive and close the door. 

6. Press RUN on the computer (RESET if no front panel switches). 

7. The disk drive head should engage, then step once. If it 
doesn't, go back to the Tarbell FDI manual, page 7-7. 

8. If the CP/M opening message comes up on your console device, 
answer the question with a 1, 2, 3, or 4 on your keyboard. 

CP/M should then type: A> which means it is ready for a 

valid CP/M command or transient program name to be typed in. 

9. If the above all goes well, type "DIR" . CP/M should 

then list all 20 or more file names that are on the disk. Look 
for a file ending in "ASM" , then type "TYPE filename.ASM" . The 
content of the assembly language file that you selected should 
be typed by CP/M on your console. Now go on to the next 
page in this guide: "Making Backups of your CP/M Disk". 

10. If at some point in steps 8 or 9 above the system does not 
perform as shown, the interface.to your console device may be 
set up with different port numbers or status bits than that 
which the Tarbell Basic Input/Output System (BIOS) expects. 

This is port 0 for status, port 1 for data, bit 0 of status low 
means keyboard ready, bit 7 of status low means printer ready. 

You may at this point decide whether to change your console 
interface to match BIOS, or change BIOS to match your interface. 

11. You may temporarily patch BIOS for your console by following 
the procedure outlined below. 

12. Stop your computer, and look at the listing of BIOS (FBIOS24 or 
CBIOS24) that came with your CP/M disk. Find the routines marked 
CONST, CONIN, and CONOT. Compare these routines with the ones 
normally used with your console interface. They may need changing 

13. Before making the changes, first disable the bootstrap by doing 
an EXAMINE from the front panel with the address switch 5 up, or 
turning dipswitch 7 on the FDI board temporarily off. 

14. Change the console routines for your interface by depositing the 
correct I/O port numbers, status mask, and conditional 

jump instructions into the locations occupied by the original ones 
It is also possible to deposit jumps into your ROM routines, as 
long as you make sure the right registers are used. 

15. Turn dipswitch 7 back on (if your turned it off), examine at 
zero and run, or jump to location zero (do not reset). 

16. Now try steps 8 and 9 again. When completed, go on to the 
next page in this guide: "Making Backups of your CP/M Disk". 

1 


lift*' T ' 



T 


Using CP/M VI.4 to modify CP/M V2.0 

1. Make a copy of your master disk using CP/M 1.4 and the "copy" 
program. Put your master disk away for safe keeping. 

2. Copy onto a blank disk the "cbios" and "boot" files for Ver. 2.0 

3. Next, invoke the sysgen program and get the 2.0 system from the 
first 2 tracks into memory. 

e.g. A:SYSGEN<cr> 

put your CP/M v2.0 disk into drive A and type the letter A in answer 
to the first question, and then type <cr>. Now return your CP/M VI.4 
disk back to the A drive and type <cr> to the second question, as you 
will need to return back to the operating system. 

4. Type save 34 cpm24.com<cr> 

5. You now have a copy of your operating on disk and are now ready to 
modify your bios and boot files for your system. Do not change the 
memory size at this time, as the system you copied from your disk 
is set up for 24K and you have no way to make another size until 
after you get your new CP/M V2.0 running. If you try to make a new 
system size while using your CP/M VI.4, you will get a SYNC error. 

6. After assembling both the bios and boot files, you are ready to build 
your new system disk with your changed bios. Be sure that your copy 
of the system you just saved (cpm24.com) is on the same disk as your 
bios and boot files. 

7. At this point, the steps needed to finish are on page 8 starting with 
step 4. Use the relocation values for 24 k as shown in the table. 


Making Backups of your CP/M System Disk 

IMPORTANT! BE SURE TO FOLLOW ONE OF THESE BACKUP PROCEDURES BEFORE 
PROCEEDING TO USE CP/M FOR ANYTHING ELSE. TO FAIL TO DO SO MAY CAUSE 
THE LOSS OF YOUR OPERATING SYSTEM SOFTWARE. 

A disk system is highly vulnerable to a phenomenon called a "crash". 

A crash can occur when the CPU starts executing instructions in 
memory locations that are not in the proper sequence normally 
executed by the running program. This may be caused by hardware 
failure, powerline surges, operator errors, and the execution of 
programs which have not been completely debugged. It is possible 
during a crash sequence, and likely, sooner or later, for the CPU 
to execute instructions which cause invalid data to be written onto 
the disk, such that parts of or all the programs on the disk will 
be irrecoverable (a crashed disk). 

The main weapon you have against crashing disks, other than clean 
hardware and operating proceedures, is to create frequent backups. 

The first thing you want to do is create a backup of the CP/M 
system disk. There are two good ways to do this outlined below. 

If you have two disk drives, or a dual drive, it is relativly 
easy to back up your disk. Once you're up and running on 
disk A, put a fresh disk in disk B, then type: 

"COPY ALL" This will give you a message; then press 
return, and whatever is on disk A will be copied onto disk B 
track by track. Be sure to mark the new disk with the 
copyright notice according to your license agreement. 
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Useful CP/M Operating System Notes 

These are items of interest that may not be immediately obvious, but 

are nevertheless very useful to know. 

1. After pressing reset and run with a CP/M diskette in the drive, 
you should get a message stating the version of CP/M you have. 

If it asks you, type in the number of diskettes which you will 
be using. For a dual drive or for two drives, type 2. If it 
comes back with a "A>", you're ready to start entering commands. 

If you have not yet made a backup, do so now, referring to page 
2 of this guide. 

2. You will find that the follwoing control characters are useful: 

CTL-C Terminates output, escapes to monitor. If done 

after a prompt, may cause a warm boot to execute. 

CTL-S Freezes printing temporarily. Any other character 
will resume printing after the CTL-S is used. 

CTL-Z Terminates input from keyboard to editor or PIP. 

CTL-U Cancels the currentl line being entered. 

RUBOUT Prints and cancels the last character entered. 

CTL-P Echos all console output onto the LIST device. 

Another CTL-P deactivates this feature. 

CTL-H or BACKSPACE Deletes last character typed from console. 

3. When the hard bootstrap is activated by reset and run, the 
128-byte (one sector) cold-start loader is read in at zero an 
executed (source is xxBOOTxx.ASM). It then reads in the 51 
sectors of CP/M into the top end of RAM. A "Warm-Boot" routine 
in BIOS can be activated by jumping to location zero. This reads 
in all of CP/M except the BIOS. This may be used to exit from 
programs which overlay all of CP/M except BIOS. 

4. The CP/M system that is brought in from disk A with the bootstrap 
stays in memory until another warm boot is executed, perhaps by 
leaving from the Editor, or other system program. It is important 
to realize that when a warm boot is performed, the memory size of 
the system being booted in must match the memory size of the old 
one, since BIOS will load CP/M at the previous location. In order 
to change to a different memory size, you must do a cold boot. 

5. The CPM.COM file on the disk is a program which may be used to 
generate CP/M systems for different memory sizes. This is not the 
CP/M system itself, which is brought in from the first two tracks. 

6. The BIOS and BOOT contained in the CPM.COM file are set up for the 
INTEL MDS system, and will not work with the Tarbell Floppy Disk 
Interface. This is why it is important to follow the procedure in 
this guide on pages 8,9, and 10, when you wish to make changes 

in your Tarbell CP/M system. 

7. If you use PIP to transfer .INT (BASIC intermediate) files, 
be sure to use the 0 parameter as described in the CPM manual 
under the PIP program description. 

8. Don't use the file extention (like .ASM) when running 
the ASM, BASIC, RUN, and LOAD programs. 
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NOTES ABOUT THE TARBELL ELECTRONICS SOFTWARE FOR CP/M 


2CBIOS24.ASM - Standard input/output system for Tarbell CP/M 
and Tarbell Floppy Disk Interface (FDI). Notice that there 
is now a VDM-1 driver in it, which may be activated by 
setting the proper EQU's. 

2SBOOT24.ASM - Source for the standard Tarbell FDI coldstart 
loader program, set up for 24k. 

COPY.COM, COPY.ASM - Command and source files for a copy 
program from the CP/M user's group, which has been 
modified to work with the Tarbell FDI. To use it, type 
"COPY ALL”, "COPY SYSTEM", or "COPY DATA”. 

After typing in the command, it will come back and wait 
for a carriage-return so you can put your master and 
fresh disks in. The first form copies the whole disk, 
track by track, from A to B. The second form copies 
just the first two tracks, and the third copies all 
but the first two tracks. After it comes back with the 
ending message, a carriage-return will do a warm boot, 
and an ampersand (&) followed by a carriage-return will 
repeat the operation. 

FORMAT.ASM - This program, written by Dick Culbertson, 
allows you to completely format a blank or crashed disk. 

It wipes out whatever is on the disk, so be sure you 
have all the information off the disk that you need. Also 
be sure to remove the disk you have in drive A and 
only have the one you want reformatted in there, when it 
comes up with it's opening message. This program also 
needs assembling before use. 

2FBIOS24.ASM - This is the assembly-language source for the 
dual PerSci version of the Basic Input/Output System. It 
is usually the same as the standard version, except for the 
DUAL and FAST EQU statements. Notice that it also contains 
a VDM driver. Follow the procedure in the CP/M 
operating system notes entitled "Making Changes in the CP/M 
System" in order to integrate this module into your system. 

2FBOOT24.ASM - This is the assembly-language source for the 
dual PerSci version of the coldstart loader program. 

BASIC.COM, RUN.COM - These are the command modules for 
the BASIC-E compiler and run-time interpreter, written by 
Gordon Eubanks, Jr. 
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6 f R01+J T2> CitCfil €J coUP/c £ 

A^P &obJ ft SASIC. 


A>D IR v 

At PIP C0M 

Af ED C0M 

A| ASM C0M 

A| BASIC C0M 

At BUM C0M 

AJ SYSflEN C0M 

At CPM C0M 

At SUBMIT C0M 

At DDT C0M 

At STAT C0M 

At L0AD C0M 

At DUMP C0M 

At SB00T24 ASM 

A| CASDSK ASM 

At DSKCAS ASM 

At CBI0S ASM. 

A>ED .TEST-B .BAS 




./ pot 3* y ' c 






^i 

10 F0B N«1 T0 5 
20 PRINT N«SQR(N) 
30 NEXT N 
4 ^ END 

10 F0R N*1 T0 5 
20 PRINT N»SQRCN> 
30 NEXT N 
40 END 




1?*>FFSR 


A>BASIC TEST-B «- 

BASIC-E COMPILER VER 2. 
1* 10 F0R N«1 T0 3 

2* 20 PRINT N>SQR(N> 

3* 30 NEXT N 

4# 40 END 

0 ERRORS DETECTED 


A>RUN TEST-B 

BASIC-E INTERPRETERS VER 


You Tt/V' iWtS t*** f &C ^ 

- pot T& BCftpS&i a/ 4 ef ff^FFZR^ 

'f'lPC Wul T^e* neS&S tt J tHC &U?F£R. 

EutT Ffi^n OiTfc<£ J*A<rr THf F/cc. 

TVr $ASiC *** 

0 R 3 8 0 ? TH>5. 

ft IS / ( n V- 


F'L€\ 


yo*> f ‘ l # 


1.414213 

1.73205! 

2 

2.236068 


V<5 ^ fHOUrt 1 
P^l^TS THIS. 



d f to £D, r (cMfikej 

Coquet / frtJD £ 0 )J f, fifrS/c 

hAn€ of f ( cC ceetfrev 



PRINT N#SQR<N) 
*SSQR<N)tZN*N 4~ 

*0LT 4--- 

20 PRINT N*N*N 

*b#t e-- 

10 F0R N»1 T0 5 
20 PRINT N«N*N 
30 NEXT N 
40 END 

*1 --' 

5 PRINT "START" 

*4 LT 4 - /) hCaV 

*-LT <— 


AflpCfi/b Acc. THC t/b/es /A/ro TH€ 3^F : Fe'4Z 
THAT ‘V't.c F/T\ 

^/A/p r«£T STA.itJc "l&". 

P4i>St THC f.€TT * F TH€ <-nJg. 

'Iv&ST/ ToTC HjkN Foil • 

Co QAct To (>€<;tt#*nr4< &f uib/g ^a/> /T. 

Co Back to $£*<,*/>//A^r of BOFFCA A^l Tlpe” /T. 


^ /r/4 Ptn^TfR. Slii. i »r . %*SSCfLT THIS Lth/F 


V f-tucs qns> fQiHr f\ u*/e, 

40 end Oo F/ **/ <c /v^P priitJr*r. 

♦I - 2a tsCHT THIS c t A/e B 

PRINT "STOP" 4-» __„ 

*8#T 4r~—— FA/bJr TH* QOF fZTZ. ACA/^ r 

5 PRINT "START” 

10 FOR N* 1 T0 5 
20 PRINT N*N*N 
30 NEXT N 

PRINT "STOP" 

40 END 
*E «*-- 


sk/T f&&n e*iTt>&. 'THC C'LC, 

u- C&hiPttC TH€ bfCkJ [TCtZS/tfi, 


A>BASIC TEST-B *r~ 

BAS IC-E COMPILER VER 2.0 
1* 5 PRINT "START" 

2* 10 F0R N-l T0 5 

3* 20 PRINT N*N*N 

At 30 NEXT N 
5* PRINT "STOP" 

6* 40 END 

0 ERRORS DETECTED 

A>RUN TEST-B 

BASIC-E INTERPRETER* VER 


Co^V^C^ PAitJTS THIS: 


THC PeiCAfr* 

• 0 


START 

1 

2 

3 

4 

5 

STOP 


1 

4 

9 

16 

25 


yautf v/®»0 

p/e«fs/TS T^IS. 



Y 

aw» - ~~ ~ 1 







A-ttfMfiL'f- P At>Z&h*X$. 


k 


C (L£hT£ , A^SS^VlC ; MO MM 

ftSSCngL'i L.ftb/GufKe P&c>C£f\r\ 

nr — ' ^hn.€ op fjgvj f { <.£- 

A>ED 'TEST^A.ASM 

^ (2 (^ !*• 

NEW FILE ^ t ,_-. «_ „ 

jjj _ I'nJfcTi' CA^tu'&svp 7 a fc»t loK , 

5 THIS IS A TEST ASSEMBLY-LANGUAGE PR0GRAM 
J WHICH PRINTS TEXT 0N THE C0NS0LE BY \ 

; USING THE 0PERATING SYSTEM PRINT R0UTINES. 

-CoKMCt^TS 

EQU 5 JENTRY P0INT T0 SYSTEM. 

lALL PR0GRAMS START HERE 
;PRINT C0NS0LE BUFFER. 

;GET ADDRESS 0F MESSAGE. 

;N0V D0 THE 0PERATI0N. 

V JD0 A WARM B00T 


2 

FD0S 


vyou T'd’f A'- 1 
XH if 1 ^ • 


START t 





MESAG 8 


0RG 100H 
MVI C,9 
LXI Dj MESAG 
CALL FD0S 
JMP 0 
DB 


ODH* OAH* ’THlTTS" A TKfvP) 

1SCM0S-Y COfcf 




A>ASM TEST-A 


Cmr f«h 


CP/M ASSEMBLER - VER .0 _ .^ 

A$T€*St€ . 

01 1C AJ>D J A v AIV-Afft g“ /■ £ - 6|s ) T 6 Co 9€_^ 

000H USE FACTOR <— ?6&c€NT* <f 6P TAlfc r osfD 

END 0F ASSEMBLY * TP>$l£ 0>C 

TH?£ TH€ PuC TH&f Th€ ^SSfU^L^t hA$£ 


A»TYPE TEST-A.PRN ^ 


FD0S 



$ THIS IS A TEST ASSEMBLY-LANGUAGE PROGRAM 
; WHICH PRINTS TEXT 0N THE C0NS0LE BY 

USING THE OPERATING SYSTEM PRINT ROUTINES. 


START z 


SAG 8 


EQU 

0RG 

MV I 

LX1 

CALL 

JMP 

DB 

END 


5 

100H 

C, 9 

D, MESAG 
FD0S 

0 


JENTRY POINT T0 SYSTEM. 
JALL PROGRAMS START HERE, 
;PR INT C0NS0LE BUFFER. 

2 GET ADDRESS 0F MESSAGE. 
JN0W D0 THE 0PERAT10N. 
JD0 A WARM BOOT. 


ODHrfOAH jj 'THIS IS A 


A>L§AD TSST-i 


FIRST ADDRESS 0100 
LAST ADDRESS 01 IB 
BYTES BEAD 001C 
RECORDS WRITTEN 01 


*-c.^Ar resr^.ne*- p.uf 

j® T£ST- A • C 0«A fit*. 


ATTEST-A 



W 1*4 pWfftfrrV 
TH( ?* ,rJrs * ' 


Cj 


B>P IP A 8.I-0AD .C0M«BJ L0AD>0011 


. vFs . • - - >'' 









DESCRIPTION OF EQU'S IN CBIOS 


The EQU's which are at the beginning of CBIOS are used to 
control the assembly of the CBIOS file at assembly time. 

Careful examination of the CBIOS listing provided you will give 
you a better insight into it's function. 

You will notice that there is a line called MSIZE, 
with an EQU after it and then a number, e.g. 24. 

What this means is that during assembly time, the assembler will 
store the value 24 in a location called MSIZE, and every time 
the assembler encounters the word MSIZE in the file, it will 
use the value of 24 in it's place. 

The rest of the equates control such things as 
I/O, type of drives, data ports, etc... 

In our STANDARD version, the STD EQU is set to TRUE. 

The rest of the Equates are False. In this way, we control the 
assembling of this file so that it will be configured for 
whats called Standard I/O, (status on 0, data on 1). 

At any point in time, you can totally reconfigure your 
system to any I/O setup you wish just by changing the equates 
in the CBIOS file to what you will be using. 

It must be understood that if you are going to make this kind 
of change, you must do them before you actually change the 
hardware. Otherwise, your new version of CP/M and CBIOS will 
not work with your new system. Also, if you can check out the 
new operating system on someone elses system that matches the 
type you are changing to, you will know that the software is 
is working or not. 

The Assembler book provided by Digital Research is a 
good tutorial on assembly language techniques and it is recomended 
that you at least skim over it and know what some of the 
features are. 

This will help you understand what is happening when you 
make changes in your CBIOS file and will also give you a little 
insight into how a computer language functions. 
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Making Changes in the CP/M Operating System 

This sheet outlines the procedure for changing the CP/M system for 
different sizes of memory or for different I/O configurations. 

You should have the following files on your disk in order to make the 
changes by the method outlined. The little x's denote characters 
which are different on different CP/M systems. 

xBOOTxx.ASM, CPM.COM (sometimes called MOVCPM.COM), DDT.COM, SYSGEN.COM, 
ED.COM,and xxBIOSxx.ASM. 

1. Using the Editor, change xBIOSxx.ASM and xBOOTxx.ASM to the desired 
configuration. Listings of these routines are provided. To change 
the memory size, just change the statement MSIZE EQU 24 to whatever 
size you would like. Note that in BIOS, there are a bunch of EQU's 
at the beginning that define the I/O setup. If the driver for 
your console is contained in the system, you may be able to just 
change the STD EQU to FALSE and yours to TRUE. Also check the 
port numbers CSTAT, CCOM, and CDATA to see if they match your 
console interface. The editor's S command is very useful to make 
these changes, and the N command is good for finding the place. 

2. Assemble BIOS and BOOT by typing ASM xBIOSxx and then ASM xBOOTxx 

Then type CPM xx * (remember the asterisk), where xx is the memory size 
you want . For a 32k system, type CPM 32 * 

3. Type SAVE 34 CPMxx.COM just like it says. Note: the 34 here is always 
34. If you get a "Syncronization Error", that indicates that the seria] 
number imbedded in your CPM.COM file doesn't match the serial number in 
the system which is running in memory. Sometimes you can alleviate this 
problem by first getting the size system in memory that matches that of 
the system on the disk with the CPM.COM module on it, then put that 
disk in, and do a contorl-C. 

4. Type in DDT CPMxx.COM. This reads the relocated CP/M sytem into 
memory under DDT, down low in memory. DDT will now be used to overlay 
the BIOS and BOOT modules onto the system. 

5. Type IxBIOSxx.HEX, return, then Rbias, return, where bias is 
given by the table below: 


XX 

bias 

XX 


bias 

XX 

bias 

XX 

bias 

20k 

D580 

24K 


C580 

28K 

B5 80 

3 2K 

A580 

36K 

9580 

40K 


8580 

44K 

7580 

48K 

6580 

52K 

5580 

56K 


4580 

6 OK 

3580 

64K 

2580 

** NOTE ** 









CPM 2.0 allows relocation 

on 

i Ik boundrys. Refer to 

CPM 2.0 

manual. 

6. Type in IxBOOTxx.HEX, then 

R900, then Ctl-C 

, then 

SYSGEN. 


7. For "SOURCE 

DRIVE 

NAME", 

type return. For 

"DESTINATION 


DRIVE NAME", 

r tell 

it which 

drive to put the 

new system onto. 


8. Now mount the fresh new disk in that drive and press return. 

The new system will now be written onto this disk. 

NOTE: Do not press carriage-return to reboot. 


SEE THE EXAMPLE OF THIS PROCEDURE WHICH FOLLOWS. 
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psx/imbi & €>b A&aJ -70 C.&/9AJ66 %. ur &TaB/?r/AJC ? *Sysr<sy-T\ 

/^/C /? &/yf<£/e<gAJr YT<S/70sty /?&£> z/o < 


A: ED 2FBIOS24.ASM 
*NMSIZE 
*OLT * 


26 


26 


26 

26 

26 

29 

29 

29 

29 

30 
30 
30 

30 

31 
31 


BP/7 your sou/zrB -ftt& 

B&/L tts’/zg sr/?r<3Y-f<ZAJT 
•t*P/ 2sC&frr&ju 7 *./sue 


MSIZE EQU (2 V <sau . 1A /MEMORY SIZE IN KBYTES, 


*S24 Z32 Z0LT«— suas/rpm ' JiZ'res. pt>£> TyPe // our 

MSIZE EQU 32 ;MEMORY SIZE IN KBYTES. 

*-l / - - CA3SS3 SrA/JPA/tO t/o TO /9S5 GAfBl<£ 

STD EQU (TRUE) ;TRUE IF STANDARD I/O. 

*STRUE''ZFALSE / 'ZOLT <=— MO POAJ’f iUPAJT ST0 '/o , So C./*-/)4JC?G s'7 rd 
STD EQU FALSE ;TRUE IF STANDARD I/O. 

* Jr- mJ 0 6 *J filJ7 A*f ITS Vo 

MSI02 EQU (FALSE) ;TRUE IF MITS 2SIO. 

*SFALSE / 'ZTRUE^bLT *£—aar M*sot. n> t*h& #a>d ryp<z /V s/G/t/s) 
MSI02 EQU TRUE /;TRUE IF MITS 2SIO. 

* --- tmsPg A qusjcm a o t&QU j /O r / o (2. 

DELTA EQU CFALSEj ;TRUE IF USING DELTA PRODUCTS CPU. 

* E _«o<£ OQa'T us A toy rfo^/^OTte QA/t/Ub&s sa &)</y 

~ ‘ TUG &p/rv&. / 


A:ED 2FBOOT24.ASM 
: * NMSIZ E 
18: *0LT * 


^ &t>(7 a>007 p/CG> S^PSO 

seznee.* rop. MS't& srAr&rt&or 

— , v — 7yp& tag os^js . 

18: MSIZE EQU (2 4)«. ;MEMORY SIZE IN DECIMAL KB. 

1 n . yi /v n^n A r»rtTm ' ^ ' 


** 


1 Q . *Q 0 yi A 7 ^ 0 A 7 nTfP ^ __ tsMA&T TO C-htffAJCiB 77 -M-? - . 

lo. DZft LoA ZU-bl $0 /yt/£ g. &OPL & <J /9JUO TVP^ tf 

18: MSIZE EQU 32 ;MEMORY SIZE IN DECIMAL KB. 

18: *E -—--—— 


* k 


po *TO(l& C.HASJG CS J So <2Y/r TA& (3&/T&/C. 
REN 2FBIOSD2JL ASM=2FBIOS24 .ASM | P£A*rt& * 07 * ncGS 


to smouj ss-tG mers c/ssf£> 


B>REN 2FB00^32>ASM=2FB00T24.ASM 
B>A: ASM 2FBIOS32 «*-——,__ 

CP/M ASSEMBLER - VER 2.O'"" ^ ouJ ASSG^&CG TA G 
7E7D 

007H USE FACTOR 
END OF ASSEMBLY 


B>A:ASM 2FBOOT3 2-*- 

CP/M ASSEMBLER - VER 2.0 
0080 

001H USE FACTOR 
END OF ASSEMBLY 


A/OuJ AS* e+y/ict£ 7ACT /*//.<* 


B>CPM 


& Bgatg' c/°pt oTg^pt/apc; 


MGHO/tuf s/ ■%& DGS/RGO 


CONSTRUCTING 32k CP/M vers 2.0 

READY FOR "SYSGEN" OR -upr T/T/S 'S’i/S/ r rtS s7~ /9BS&/9/2S /rJ dpi/Gr&S / 

"SAVE 34 CPM32.COM"-*-- TVr& TWS ^ ss sr ^ 

B>SAVE 3 4 CPM32.COM -— So ST A/*t2 /Ys 

DDT : VERS C 2 M 0 2 * COM -~ 36/y/J ysfG Svsr<3rt UjT//Ofi POT 

NEXT PC 

2300 0100 , 

-I2FBIOS32 .HEX —- /A JPat LfoPC &/£>S T/Z-B US/AJ^ 'TM& Z ' CjoMMrtAJJb . 

-RA580 -**—- AJooJ oo rtcri/rtl. (2&/QO OB 7M& T/7.G /f 3//7S t/#7LlS& 

NEXT PC Frort . 

2300 0000 

-I2FBOOT32.HEX «es- -/UP^r ye UP 3007 P/t<3 

-R900 *■*——- /Ze#o 


US ZAP <S TM<3 

7AC p/cc. as/rP? /A &//9S or 900. 


Z c*MP+ 0 iOD . 


NEXT PC 
2300 0000 
-~C __ 


(Zyjf" 3/fCK. TO S yffBAt CGU&C* AStAuA C.KJ7L “C« 


\X 


9 







SYSGEN VER 2.0 

SOURCE DRIVE NAME (OR RETURN TO SKIP)<c*> &*27U/£a$ 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT@«~ THU /J P€jV<S cue u)(Ll. Pur 

DESTINATION ON B, THEN TYPE RETURN 4 cr> sysren > 

FUNCTION COMPLETE «=- <*<iir&* /J AJOtU otJ Tf+Os*ifruf 6 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) U,SK 


A> 



PO AJOT 


Type Bur- Pur aj&aJ 


p «/5 r&n tur& P&nse /f /fP>o B&s&r &uaJ 

tv i 7 got. 
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AB/DS24. PRN 


STD D.D. 


FFFF = 
0000 = 


0018 = 
0000 = 
0000 = 
0000 = 


0000 = 


0000 = 


FFFF = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 


FFFF = 


0000 = 
0000 = 
0000 = 


0000 = 


0000 = 


0001 = 
0002 = 



0000 = 
0010 = 
0000 = 
0000 = 
0000 = 
0042 = 
0000 = 
0002 = 


0000 = 


0000 = 
FFFF = 
0000 = 
0000 = 


; CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM-fSiOSl 
; TARBELL ELECTRONICS CPM 1.4 VERSION OF 7-14-800 

; Copyright (c) 1980 Tarbell Electronics* ^ —- 

• 

; THIS MODULE CONTAINS ALL THE INFUT/OUTPUT ROUTINES FOR 
; THE CP/M SYSTEM, INCLUDING THE DISK ROUTINES FOR AUTOMATIC 
; SELECTION OF THE DISK DENSITY AND THE NECESSARY DMA ROUTINES. 

; THIS SECTION ALSO DEFINES THE I/O PORTS AND STATUS BITS. BY 
; SETTING THE PROPER VALUES FOR THE EQU STATEMENTS, THE I/O MAY BE 
; AUTOMATICALLY RECONFIGURED TO FIT MOST SITUATIONS. THE TRUE AND 
; FALSE ONES CONTROL CONDITIONAL ASSEMBLIES OF DIFFERENT SECTIONS 
; OF I/O ROUTINES TO FIT DIFFERENT INTERFACE REQUIREMENTS. 

TRUE EQU OFFFFH ;DEFINE VALUE OF TRUE. 

FALSE EQU NOT TRUE ,-DEFINE VALUE OF FALSE. 

*************************************************** 

*** THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 

*** FOR DIFFERENT CONSOLE I/O SYSTEMS *** 

a************************************************** 


MSIZE EQU 24 
INTRP EQU FALSE 
TESTING EQU FALSE 
TARBELL EDU FALSE 
IOBASE EQU 0 
TIMER EQU FALSE 
STD EQU TRUE 
VDB8024 EQU FALSE 
DELTA EQU FALSE 
MSI02 EQU FALSE 
ISI02 EQU FALSE 
TUART EQU FALSE 
VDM EQU FALSE 
FLASH EQU FALSE 
VB1 EQU FALSE 
OTHER EQU FALSE 
SOLOS EQU FALSE 
BACKSP EQU TRUE 
DUBSID EQU FALSE 
DMACNTL EQU FALSE 
SPOOL EQU FALSE 


;MEMORY SIZE IN KBYTES. 

;TRUE IF INTERRUPTS ALLOWED. 

?TRUE FOR TESTING ERRORS 

,-TRUE IF USING THE TARBELL Z-8Q CPU. 

;BASE 10 ADDR FOR TARBELL CHJ (0 or 10 hex). 
;TRUE IF USING CHJ TIMER (Tarbell CPU board). 
,-TRUE IF STANDARD I/O. 

,-TRUE IF USING SD SALES VDB-8024. 

,-TRUE IF USING DELTA CPU CARD. 

,-TRUE IF MITS 2SIO. 

,-TRUE IF IMSAI SIO-2. 

,-TRUE IF CRCMEMCO TUART. 

,-TRUE IF PROC TECH VDM. 

,-TRUE IF VG FLASHWRITER. 

,-TRUE IF SSM VB1-B. 

,-TRUE IF SOMETHING ELSE. 

,-TRUE IF PROC TECH SOLOS. 

,-AUTO-BACKSPACE FOR CRT'S. 

,-TRUE FOR DOUBLE SIDED DRIVES. (1 LOGICAL DRIVE) 
,-TRUE IF DMA CONTROLLER 
,-TRUE IF USING KLH SPOOLER 


IF NOT SOLOS AND NOT TARDEL ;IF NOT PROC TECH SOLOS, 
CSTAT EQU 0 ; CONSOLE STATUS PORT. 

OCOM EQU 0 ,-CONSOLE COMMAND PORT. 

(DATA EQU 1 ,-CONSOLE DATA PORT. 

LSTAT EQU 2 ,-LIST STATUS PORT. 

LCOM EQU 2 ,-LIST COMMAND PORT. 

IDATA EQU 3 ,-LIST DATA PORT. 

ENDIF 


fcONUL EQU FALSE 
CNULL EQU 16 
LSTNUL EQU FALSE 
LNULL EQU 0 
LSTPAG EQU FALSE 
LINCNT EQU 66 
HLAB EQU 0 
STPRAT EQU 2 
DUAL EQU FALSE 


CONSOLE NULLS? 

CONSOLE NULL COUNT, 

LIST DEVICE NULLS? 

LIST NULL COUNT. 

LIST DEVICE PAGING? 

LINES PER PAGE. 

8 FOR HD LD AT BEG OF SEEK. 

RATE 0=3ms,l=6MS» 2=10MS, 3=20MS. 

TRUE IF DUAL DRIVE.(2 HEADS MOVE TOGETHER) 


******************************************************* 

*** THIS IS THE END OF THE AREA WHICH NORMALLY NEED *** 

*** BE CHANGED FOR MOST CONSOLE I/O SYSTEMS *** 
***********5F********************¥********************** 

VIDEO EQU VDM OR FLASH OR VEL ,-TRUE FOR ANY VIDEO. 

KDYLO EQU STD OR SOLOS OR OTHER ,-STATUS READY WHEN LOW. 
RDYHI EQU NOT KDYLO 

TARDEL EQU TARBELL OR DELTA ,-IF USING TARBELL OR DELTA CPU. 

IF TARDEL ;IF USING TARBELL OR DELTA CPU 
CCOM EQU IOBASE+1 ,-CONSCLE COMMAND PORT 

CSTAT EQU IOBASE+1 ;CONSOLE STATUS PORT ( CHAN A.) 

CDATA EQU IOBASE+O ,-CONSOLE DATA PORT 

LCOM EQU IOBASE+3 ;LIST COMMAND PORT 

LSTAT EQU IOBASE+3 ,-LIST STATUS PORT (CHAN B.) 
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LDATA BQU IOBASE+2 
ENDIF 


;LIST DATA PORT 


00E0 

00F8 


00E0 

OQEL 

00E8 

00F8 


IF 

; TIMER EQUATES 

■kso 

TCHl 
TCH2 
TCMND 
IMASK 
CNTRO 
CNTKL 
CNTR2 
RLWORD 
RLHBYTE 
RLLBYTE 
CNTRLT 
BINARY 
BCD 
MQDEO 
MODE1 
M0DE2 
MC3DE3 

MODE4 EQU 
MODES EQU 

ENDIF 


TIMER AND TARBELL 


;MUST BE USING TARBELL CPU. 


IOBASE+4 

ICBASE+5 

ICBASE+6 

IOBASE+7 

ICBASE+8 

00000000B 

01000000B 

10000000B 

00110000B 

00100000B 

00010000B 

00000000B 

00000000B 

00000001B 

00000000B 

OOQQOOIQB 

00000100B 

00000110B 

00001000B 

00001010B 


TIMER CHAN 0 ADDRESS 
TIMER CHAN 1 ADDRESS 
TIMER (HAN 2 ADDRESS 
TIMER COMMAND PORT 
INTERRUPT MASKING PORT 
counter 0 
counter 1 
counter 2 

read/load Isb 1st, msb 2nd. 
read/load msb only, 
read/load lsb only, 
counter latching operation, 
select binary operation, 
select BCD operation, 
interrupt on terminal count, 
programmable One-shot, 
rate generator, 
square wave rate generator, 
software triggered strobe, 
hardware triggered strobe. 


IF VDM 



SCREEN 

EQU 0CC00H 

ENDIF 


;SCREEN PLACE IN MEMORY. 


SCREEN 

IF FLASH OR VB1 
EQU 0F800H 

ENDIF 


; SCREEN PLACE IS DIFFERENT. 


ENDSCR 

IF FLASH 

EQU (SCREEN+2048) 
ENDIF 

SHR 8 

,-IF VG ELASHWRITTER 


ENDSCR 

IF VB1 OR VDM 
EQU iSCREEN+1024) 
ENDIF 

SHR 8 

,-IF SSM VB1-B BOARD 


f 

LINES15 

SCRLCNT 

SCRNTDP 

IF VIDEO 

EQU SCREEN + 64 

EQU 960 

EQU SCREEN + SCRLCNT 
ENDIF 

;VIDEO LINES 
;LINES TO SCRCLL 
;TOP OF SCREEN 

0008 = 

000A = 

000D = 

000C = 

ksp 

LF 

CR 

FF 

EQU 08H 

EQU 0AH 

EQU 0DH 

EQU 0CH 


;BACKSPACE EQUATE 
/LINEFEED EQUATE 
/CARRIAGE RET EQUATE 
/FORM-FEED EQUATE. 

0008 = 

00F7 = 

f)DEN 

DDDSB 

EQU 08H 

EQU 0F7H ; 

DOUBLE DENSITY ENABLE CODE 

DOUBL. DENSITY DISABLE CODE 


CSTAT 

KBD 

CLRSCR 

SCRN 


DMAP 

DISK 


DMAP 

DISK 

• 

Adro 

WCTO 

CMND 

DCOM 


IF SOLOS 
EQU OFAH 
3U 0C02EH 
)U 0C0D5H 
JU 0C054H 
jIF 

IF NOT SCLOS 
EQU OEOH 
EQU 0F8H 
ENDIF 

IF SCLOS 
BQU 06OH 
EQU 078H 
ENDIF 

EQU DMAP+Q 
EQU DMAP+1 
EQU DMAP+8 
EQU DISK 


;IF PROC TECH SCLOS, 
/CCNSCLE STATUS PORT. 
/SOLOS KEYBOARD. 

;CLEAR SCREEN. 

; SOLOS OUTPUT. 


;IF NOT PROC TECH SOLOS, 
;DMA BASE ADDRESS. 

/DISK BASE ADDRESS. 


;IF PROC TECH SCLOS, 
/DMA BASE ADDRESS. 
/DIFFERENT DISK PORTS. 


;DMA ADDRESS REE PORT. 
/DMA WORD COUNT REE PORT. 
/DMA COMMAND PORT. 

,*DISK COMMAND PORT. 
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00F8 = 

DSTAT 

BQU 

DISK 

00F9 = 

TRACK 

EQU 

DISK+1 

00FA = 

SECTP 

EQU 

DISK+2 

00FB = 

DDATA 

BQU 

DISK+3 

00FC = 

WAIT 

BQU 

DISK+4 

00FC = 

DCONT 

BQU 

DISK+4 

00FD = 

DMACHK 

EQU 

DISK+5 

000A = 

RTCNT 

EQU 

10 



IF 

STD 

0001 = 

CKBR 

BQU 

00000001B 

0080 = 

CPTR 

BuU 

10000000B 



ENDIF 



IF 

VDB8024 


CKBR 

BQU 

00000010B 


CPTR 

BQU 

00000100B 


0080 = 

0003 = 

1C00 = 

4500 = 

4D06 = 

1500 = 

0019 = 

5572 

5572 CDF44F 
5575 000000 

2f859 

5 ADO 


ENDIF 


IF MSI02 

CKBR EQU 00000001B 

CFTR EQU 00000010B 

ENDIF 

IF TARDEL OR ISI02 
CKBR BQU 00000010B 

CFIR BQU 00000001B 

ENDIF 

IF TUART 

CKBR BQU 01000000B 

CFTR EQU 10000000B 

ENDIF 

IF SCLOS 

CKBR p 0000Q001B 

CPTR BQU 10000000B 

ENDIF 

IF OTHER 

CKBR BQU 00000010B 

CPTR BQU 10000000B 

ENDIF 

DEBIT BQU CFTR 

ICBYTE BQU 3 

CBASE BQU (MSIZE-17)*1024 

CPMB BQU CBASE+2900H 

BDOS EQU CBASE+3106H 

CPML BQU 150OH 

NSECTS EQU 25 

' ORG CPMB+107 2H 

CALL CPMB+0AF4H 
NOP I NOP I NOP 
MOV A,C 

LXI H,CFMB+14F8H 

• 

ORG CPMB+1500H 


;DISK STAIUS PORT. 
;DISK TRACK PORT. 
;DISK SECTOR PORT. 
;DISK DATA PORT. 

;DISK WAIT PORT. 

;DISK CONTROL PORT. 
;DMA CHECK PORT. 

; RETRY COUNT. 

/IF STANDARD I/O, 

;KEYBOARD READY BIT. 
/CONS OUTPUT RDY BIT. 


; KEYBOARD RDY BIT. 
;CON RDY BIT. 


;IF MITS 2SIO, 

;KEYBOARD READY BIT. 
; PRINT READY BIT. 


;IF IMSAI SIO-2, 
;KEYBOARD READY BIT. 

; PRINT READY BIT. 


;IF CRCMEMCO TUART, 

;KEYBOARD READY BIT. 
;PRINT READY BIT. 


;IF PROC TECH SOLOS, 
;KEYBOARD READY BIT. 
/DUMMY EQU. 


;IF SOMETHING ELSE, 
/KEYBOARD READY BIT. 
/PRINTER READY BIT. 


/LISTER READY BIT. 

/ADDRESS OF I/O BYTE. 

/BIAS FOR LARGER THAN 17K. 
/START OF Cm. 

/START OF BDOS 1.4. 

/LENGTH OF CPM SYSTEM-BIOS. 
/NUMBER OF SECTORS TO READ. 

/CP/M PATCH. 


/START OF BIOS. 


I/O JUMP VECTOR 

THIS IS WHERE CPM CALLS WHENEVER IT NEEDS 
TO DO ANY INPUT/OUTPUT OPERATION. 

USER PROGRAMS MAY USE THESE ENTRY POINTS 
ALSO, BUT NOTE THAT THE LOCATION OF THIS 
VECTOR CHANGES WITH THE MEMORY SIZE. 


5A00 C33B5A 

JMP 

BOOT 

/FRCM COLD START LOADER. 

5A03 C39B5A 

WBOOTE: JMP 

WBOOT 

/FRCM WARM BOOT. 

5A06 C3E05A 

JMP 

CONST 

/CHECK CONSOLE KB STAIUS. 

5AO9 C3E95A 

JMP 

CCNIN 

/READ CONSOLE CHARACTER. 

5A0C C3FF5A 

JMP 

conot 

/WRITE CONSOLE CHARACTER. 

5A0F C3AC5D 

JMP 

LIST 

/WRITE LISTING CHAR. 

5A12 C3B75D 

JMP 

PUNCH 

/WRITE PUNCH CHAR. 

5A15 C3B85D 

JMP 

READER 

/READ READER CHAR. 

5A18 C3C35B 

JMP 

HOME 

/MOVE DISK TO TRACK ZERO. 

5A1B C3255B 

JMP 

SELDSK 

/SELECT DISK DRIVE. 

5A1E C3C95B 

JMP 

SETTRK 

/SEEK TO TRACK IN REG A. 

5A21 C3455C 

JMP 

SETSEC 

/SET SECTOR NUMBER. 

5A24 C34A5C 

JMP 

SETDMA 

/SET DISK STARTING ADR. 
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5A27 C3835C 
5A2A C3F85C 


JMP 

READ 

;READ SELECTED SECTOR. 

JMP 

WRITE 

7 WRITE SELECTED SECTOR. 

IF 

SPOOL 

;IF USING KLH SPOOLER 

DB 

0FFH 

7 FLAG FOR SPOOLER. 

DW 

LTBSY 

;LISTER STATUS LOCATION 

DW 

LTBSY 

;FOR SPOOLER - - 

DW 

LTBSY 

7 I DON'T KNOW WHY IT'S 

DW 

LTBSY 

7 HERE 4 TIMES EITHER. 

ENDIF 



;THE FOLLOWING TABLE DEFINES CP/M AS EITHER SINGLE OR 
; DOUBLE DENSITY AND IS CHANGED ON THE FLY WHEN A DISK 
;IS SELECTED. THE ORDER OF THIS TABLE MUST BE AS SHOWN. 


5A2D 004ELA3F03&DTAB: DB 00H,4EH f 26,63,3,7,242 

IF DUBSID 

DB 02H,4EH,26 ,63,4,15,242 
ENDIF 

DB 01H,0CH,51,95,4,15,237 
IF DUBSID 

DB 03H,0CH,51,95,5,31,237 
ENDIF 


5A34 010C335F04 


7 SINGLE DENSITY TABLE 
7 SINGLE DEN. DOUB SIDED. 
;SINGLE SIDED, DOUB DEN. 
,-DOUB SIDED, DOUB DEN. 


BOOT 

THIS SECTION IS EXECUTED WHENEVER RESET AND RUN 
IS PUSHED, AFTER THE COLDSTART LOADER READS IN 
THE CPM SYSTEM. 


5A3B 3 18000 feOOT: LXI SP,80H ;SET STACK POINTER. 


IF INTRP 
El 

ENDIF 


;IF INTERRUPTS ALLOWED, 
;ENABLE THEM HERE. 


5A3E 00000000 
5A42 00000000 
5A46 00000000 
5A4A 00000000 


IF TIMER AND TARBELL 7 IF USING TARBELL CHJ 
MVI A,CNTR0 +RLWORD+MODE2 +BINARY :INIT 8253 

CUT TCMND ;SEND IT TO COMMAND PORT 

LXI B,33333 ;TIME CCNSTANT FOR 60 HZ 

MOV A,C 

OUT TCH0 ;LS BYTE OF COUNT 

MOV A,B 

OUT TCH0 ;MS BYTE OF COUNT 

ENDIF 

IF STD ;IF STANDARD I/O, 

NOP! NOP 1 NOP! NOP ; LEAVE SPACE FOR INIT. 

NOPINOPINOPINOP 

NOP! NOP I NOP! NOP 

NOPINOPINOPINOP 

ENDIF 


IF MSI02 
MVI A,3 
OUT CCOM 
OUT LOOM 
MVI A,11H 
OUT CCOM 
OUT LOOM 
ENDIF 


IF TARDEL OR ISI02 
LXI H,IOINIT 
MVI B,4 
INITIO: MOV A,M 
OUT CCOM 
OUT LOOM 
INX H 
DCR B 
JNZ INITIO 
ENDIF 

IF TUART 
MVI A,1 
OUT 54H 
OUT 52H 
LXI H,BAUDRS 


;IF MITS 2SIO, 

;INITIALIZE 2SIO. 


;point to 8251 init. bytes 
;there are 4 of them 
;get a byte 

rout to command port of console 
;out to command port of lister 
;bump pointer 
?deerease count 
;loop till done. 


;IF CRCMEMCO TUART, 

,-SET A = 1. 

; SELECT DEVICE A. 

; RESET DEVICE B. 

;GET ADR OF BAUD RATE TABLE. 
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MV I 

A.11H 

02H 

;OCTUPLE THE CLOCK. 



EEL: 

OUT 

;& RESET CURRENT DEV. 




MOV 

A,M 

.•GET BAUD RATE FROM TABLE, 




INX 

H 

; INCREMENT POINTER. 




OUT 

0 

,-SET BAUD RATE. 




CALL 

CON IN 

.•READ KEYBOARD. 




CALL CONIN 

.•READ KEYBOARD AGAIN. 




CPI 

0DH 

,-IF NOT CARRIAGE-RETURN. 




MVI 

id 

;SLCW THE CLOCK. 




JNZ 

.-UNTIL A CARRIAGE-RETURN. 




ENDIF 





IF 

SOLOS 

;IF PROC TECH SOLOS, 




CALL CLRSCR 
ENDIF 

.•CLEAR SCREEN. 

5A4E 

AF 


XRA 

A 

.•CLEAR SCRATCH AREA. 




IF 

VDM 

;IF PROC TECH VDM, 

.•CLEAR SCROLL PORT 




OUT 

0C8H 




ENDIF 


5A4F 

32CC5D 


STA 

LATCH 

.•LATCH = 0 

5A52 

320300 


STA 

IOBYTE 

••CLEAR I/O BYTE. 

-STARTZ .-GET LENGTH OF ZERO 

5A55 

0E0C 


MVI 

C.ENDZ- 

5A57 

21BD5D 


LXI 

H.STARTZ .-GET SCRATCH ADDRESS. 

5A5A 

77 

BOOTH: 

MOV 

M r A 

.•PUT ZERO IN MEMORY. 

5A5B 

23 


INX 

H 

;INCREMENT POINTER. 

5A5C 

0D 


DCR 

C 

.•DECREMENT COUNTER. 

5A5D 

C25A5A 


JNZ 

BOOTH 

.•LOOP TILL DONE. 




IF 

VIDEO 

,-IF ANY VIDEO BOARD, 




CALL CLEAR 
ENDIF 

;CLEAR SCREEN. 

5A60 

DB01 


IN 

CDATA 

.•CLEAR CONSOLE STATUS. 

5A62 

21695D 


LXI 

H.SM9G 

PMSG 

.•PRINT OPENING MESSAGE. 

5A65 

CD275D 

CDE95A 


CALL 


5A68 


CALL 

CONIN 

,-READ # OF DISKS. 

5A6B 

4F 


MOV 

C,A 

.•ECHO THE CHAR. 

5A6C 

CDFF5A 


CALL 

CONOT 


5A6F 

E607 


ANI 

7 

.•LOCK AT 3 LSB'S. 

5A71 

32C95D 


STA 

NCDSKS 

.•SAVE IT. 

5A74 

0E00 


MVI 

0,0 

SETUP 

.•SELECT DRIVE 0 

5A76 

CD805A 

GOCPM: 

CALL 

,-SET UP JUMPS. 

5A79 

3ABD5D 


LDA 

DISKNO 

;GET DISK NUMBER TO 

5A7C 

4F 


MOV 

C,A 

CFMB 

.•PASS TO OOP IN C. 

5A7D 

C30045 


JMP 

7JUMP TO COP. 




IF 

TARDEL 

OR ISI02 



IOINIT: 

DB 

0AAH,040H,0CEH,037H 


ENDIF 

IF TUART : IF CRCMEMCO TUART, 

BADDRS: DB 94H,OCEH,0A2H,92H,88H,84H,82H,1 

ENDIF 

;DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 

;READ AND WRITE ROUTINES FOR DMA OPERATION. 

• 

,-IF USING DMA CONTROL 

;SAVE ERROR COUNT. 

,*GET SECTOR TO READ/WRITE 
;AND SEND IT FLOPPY CHIP. 

;GET Cm DMA ADDRESS. 

; CL EAR ACCUM. 

;RESET DMA CHIP. 

;FORCE INTERRUPT COMMAND BYTE 
;SEND IT TO CONTROLLER. 

,‘BYTE COUNT TO TRANSFER 
; COUNT = COUNT - 1. 

,*SEND IT TO DMA CHIP. 

?GET READ/WRITE CODE. 

;AND TELL DMA CHIP WHAT TO DO. 
;GET LOW ADDRESS BYTE 
;AND SEND IT TO DMA CHIP. 

;GET HIGH ADDRESS BYTE 
;AND SEND IT TO DMA CHIP. 

?SET UP FOR REQUEST OH. 0 
;SEND IT TO CONTROLLER. 

.•CHECK HEAD LOAD BIT. 



IF DMACNTL 

£>MARW: 

STA 

ERCNT 

FWDMA: 

LDA 

SECT 


OUT 

SECTP 


LHLD DMAADD 

DMARWE: 

XRA 

A 


OUT 

CMND 


MOV 

OUT 

A,C 

DOOM 


MOV 

A,E 


DCR 

A 


OUT 

WCT0 


MOV 

OUT 

A.D 

WCT0 


MOV 

OUT 

A,L 

ADR0 


MOV 

A,H 


CUT 

ADR0 


MVI 

A.41H 

CMND 


OUT 


CALL 

HOLD 


Page 005 




ORA B 

OUT DCOM 


;'OR* IN THE READ/WRITE BITS. 

;TELL FLOPPY CHIP WHAT TO DO. 


ADJUST H,L FOR 128 BYTE INCREASE. 


PUSH 

MOV 

ANI 

MOV 

DAD 

POP 


D 

A,D 

3FH 

D,A 

D 

D 


GENERAL PURPOSE WAIT ROUTINE. 


MVI 
CNTLOOP:DCR 
JNZ 

SLOOP; 


IN 
RLC 
JC 
IN 
RET 
ENDIF 


A, 6 OH 
A 

CNTLOOP 

DMACHK 

SLOOP 

DSTAT 


•SAVE D E 

•GET DMA COMMAND BYTE 
;STRIP OFF COMMAND BITS 7 & 6 
;NCW SET FOR H,L ADJUST. 

;ADD IT TO H,L. 

;RESTORE D,E 


;COUNT VALUE. 

/LOOP TILL —■ ZERO. 

;CHECK FOR OPERATION DONE. 

;BY LOOKING AT BIT 7. 

;LOOP TILL BIT 7 =0. 

,-CHECK AND RETURN DISK STATUS. 
/•RETURN TO CALLER. 


SET UP JUMPS INTO CP/M IN LOWER MEMORY. 

;PUT JMP TO WBOCT 
;ADR AT ZERO. 


5A80 

3EC3 

Setup : mvi 

A, 0C3H 

5A82 

320000 

sta 

0 

5A85 

21035A 

LXI 

H,WBOOTE 

5A88 

220100 

SHLD 

1 

5A8B 

320500 

STA 

5 

5A8E 

21064D 

LXI 

H/BDOS 

5A91 

220600 

SHLD 6 

5A94 

218000 

LXI 

H,80H 

5A97 

22BB5D 

SHLD DMAADD 

5A9A 

C9 

RET 



;PUT JUMP TO BDOS 
,*AT ADR 5,6,7. 

;SET DEFAULT DMA ADR. 

/•RETURN FROM SETUP. 

• 

; WARM-BOOT: READ ALL OF CPM BACK IN 
; EXCEPT BIOS, THEN JUMP TO CCP. 


5A9B 

318000 

feOGT: 

LXI SP,80H 

,-SET STACK POINTER. 




IF INTRP 

;IF INTERRUPTS ALLOWED, 




El 

ENDIF 

,-ALLCW THEM HERE. 




IF LSTPAG 

,*IF LIST DEVICE PAGING, 




XRA A 

STA LFCNT 
ENDIF 

,-RESET LINE-FEED COUNT. 

m 

3ABD5D 


LDA DISKNO 

;SAVE DISK NUMBER. 

F5 


PUSH PSW 

;SAVE CN STACK 

5AA2 

0E00 


MVI CTO 

CALL SELDSK 

/•SELECT DRIVE A 

5AA4 

CD255B 


;SELECT DRIVE A 

5AA7 

CDC35B 


CALL HOME 

,-HOME THE DRIVE 

5AAA 

210000 


LXI H,0 

SHLD DRVFLG 

,‘CLEAR H,L 
,‘CLEAR DRIVE FLAGS 

5AAD 

22C45D 


5AB0 

22C65D 


SHLD DRVFLG+2 


5AB3 

0619 


MVI B,NSECTS 

;GET # SECTORS FOR CPM READ. 

5AB5 

0E02 


MVI C,2 

,-TRACK (B) =0, SECTOR (C)=2. 




IF INTRP 

;IF INTERRUPTS ALLOWED, 




DI 

ENDIF 

/•DISABLE THEM HERE. 

5AB7 

210045 


LXI H.CPMB 
SHLD DMAADD 

;GET STARTING ADDRESS. 

5ABA 

22BB5D 

RBLK1: 

;SET STARTING ADDRESS. 

5ABD 

CD455C 


CALL SETSEC 

;READ STARTING AT SECTOR IN C 

SACO 

C5 


PUSH B 


5AC1 

CD835C 


CALL READ 


5AC4 

Cl 


POP B 


5AC5 

C2D45A 


JNZ RDERR 

/•IF ERROR, PRINT MESSAGE. 

; INCREMENT SECTOR NUMBER. 

5AC8 

OC 


INR C 

5AC9 

05 


DOR B 

/•DECREMENT SECTOR COUNT. 

5ACA 

C2BA5A 


JNZ RBLK1 

;ALL DCWE WHEN D=0. 

5ACD 

FI 

ALDON; 

POP PSW 

/•RESTORE DISK NUMBER. 




IF INTRP 

;IF INTERRUPTS ALLOWED, 




El 

; ALLOW THEM AGAIN HERE. 
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lui'vuJxr 


5ACE 

32BD5D 


STA 

DISKNO 


5AD1 

C3765A 


JMP 

GOCPM 

;GO BACK TO CPM. 

5AD4 

214C5D 

k)ERR: 

LXI 

H,BTMSG 

;GET ADDRESS OF "BOOT ERROR' 

5AD7 

CD275D 


CALL PMSG 

; PRINT IT. 

5ADA 

CDE95A 


CALL COJIN 

;READ A CHAR FRCM CCNSCLE. 

5ADD 

C39B5A 


JMP 

WBOOT 

;DO A WARM BOOT. 



? CHECK 

CONSCLE INPUT STATUS. 

5AE0 

DBOO 

tONST: 

IN 

CSTAT 

,*READ CONSCLE STATUS. 

5AE2 

E601 


ANI 

CKBR 

.•LOCK AT KB READY BIT. 

5AE4 

3E00 


MVI 

A,0 

;SET A=0 FOR RETURN. 




IF 

RDYLO 

;IF STATUS READY LOW. 

;NOT READY WHEN NOT 6. 

5AE6 

CO 


RNZ 





ENDIF 





IF 

RDYHI 

;IF STATUS READY HIGH, 




RZ 


;NOT READY WHEN ZERO. 




ENDIF 


5AE7 

2F 


CMA 


;IF READY A=FF. 

5AE8 

C9 


RET 


7RETURN FRCM CONST. 


• READ A CHARACTER FRCM CONSOLE. 
tONIN: 

IF NOT SCLOS ;IF NOT PROC TECH SCLOS, 
5AE9 DBOO IN CSTAT ,*READ CONSCLE STATUS. 

5AEB E601 ANI CKBR ;IF NOT READY, 

ENDIF 

IF SCLOS ;IF PROC TECH SOLOS, 

CALL KBD ;READ SCL KEYBOARD. 

JZ CONIN ;READY WHEN NOT ZERO. 

ENDIF 

IF RDYLO AND NOT SCLOS 


5AED 

C2E95A 


JNZ 

CON IN 

7 LOOP UNTIL LOW. 




ENDIF 





IF 

RDYHI 

7 IF READY WHEN HIGH, 




JZ 

CON IN 

7LOOP UNTIL HIGH. 




ENDIF 





IF NOT SCLOS 

7IF NOT PROC TECH SOLOS, 

5AF0 

DB01 


IN 

CDATA 

7READ A CHARACTER. 




ENDIF 


5AF2 

E67F 


ANI 

7FH 

7MAKE MOST SIG. BIT = 0 




IF BACKS? 

7IF BACKSPACE ACTIVATED, 

5AF4 

FE7F 


CPI 

7FH 

7 IS IT A RUBOUT? 

5AF6 

CO 


RNZ 


7RETURN IF NOT. 

5AF7 

3EFF 


MVI 

A.OFFH 

OONOTF 

7SET NO PRINT FLAG. 

5AF9 

32BE5D 


STA 


5AFC 

3E7F 


MVI 

ENDI1 

A,7FH 

?RESTORE RUBOUT. 

5AFE 

C9 


RET 


.•RETURN FRCM COJIN. 



• 

t 

WRITE A CHARACTER TO 

THE CONSCLE DEVICE. 



COJOT: 






IF 

BACKSP 

7IF BACKSPACE ACTIVATED, 

5AFF 

79 


MOV 

A,C 

7FH 

,-GET CHARACTER. 

5BOO 

FE7F 


CPI 

7 IS IT A RUBOUT? 

5B02 

C8 


RZ 


7IF SO, DON'T PRINT IT. 
;GET NO PRINT FLAG. 

5B03 

3ABE5D 


LDA 

COJOTF 

5B06 

B7 


ORA 

A 

7SET CPU FLAGS. 

5B07 

CA1A5B 


JZ 

CCNOTA 

7NOT SET, SO PRINT. 

7RESET THE FLAG 

5B0A 

AF 


XRA 

A 

5B0B 

32BE5D 


STA 

COJOTF 

7TO ZERO. 

5B0E 

0E08 


MVI 

c6nota 

7PRINT BACKSPACE. 

5B10 

CD1A5B 


CALL 


5B13 

0E20 


MVI 

C.20H 

CONOTA 

7PRINT SPACE. 

5B15 

CD1A5B 


CALL 
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5B18 0E08 


mi C,8 

CONOTA: 

ENDIF 


ANOTHER BACKSPACE 


5B1A DBOO 
5B1C E680 


5B1E C21A5B 


5B21 79 
5B22 D301 
5B24 C9 


CONOT1: 


IF CONOL AND NOT VIDEO ;IF NULLS REQUIRED, 
MVI A,0DH ;IF IT'S A CR, 

CMP C ;THEN HOP OUT 

JZ CONULL ;TO NULL ROUTINE. 

ENDIF 

IF NOT VIDEO AND NOT SOLOS 
IN CSTAT ;READ CONSOLE STATUS. 

ANI CFTR ;IF NOT READY, 

ENDIF 

IF RDYLO AND NOT VIDEO AND NOT SOLOS 
JNZ CCNOTL ;LOQP UNTIL LOW. 

ENDIF 

IF RDYHI AND NOT VIDEO ;IF READY WHEN HIGH, 
JZ CCNOTL ;LOOP UNTIL HIGH. 

ENDIF 

IF NOT VIDEO AND NOT SOLOS 
MOV A.C ;GET CHARACTER. 

CUT CDATA ; PRINT IT. 

RET ;RETURN. 

ENDIF 

IF CONUL AND NOT VIDEO 


CONULL: PUSH B 

MVI B.CNULIrt-1 
CONUL1: CALL CONOTL 
MVI C,0 
DCR B 
JNZ CONUL1 
POP B 
MOV A,C 
RET 
ENDIF 


SOLOS 


IF 

PUSH B 
MOV B,C 
CALL 
POP 
MOV 
RET 
ENDIF 


o,»„ 

SCRN 

B 

A,C 


;SAVE B&C. 

;GET NULL COUNT. 

;PRINT CR. 

;GET NULL CHAR. 

;DECREMENT COUNTER. 
;DO NEXT NULL. 

;RESTORE B&C. 

;RESTORE A. 

;RETURN. 


;IF PROC TECH SOLOS, 
;SAVE B&C. 

;PUT CHAR IN B REG. 

;OUTPUT CHAR TO SOLOS. 
;RESTORE B&C. 

;PUT CHAR IN A. 

;RETURN FROM CONOT. 


IF VIDEO 

VIDEO DRIVER 
WRITTEN BY G, 
9-16-78 

MOV A,C 
PUSH H 
PUSH D 
FUSH B 
PUSH PSW 
CALL VIDPRO 
POP PSW 
POP B 
POP D 
POP H 
RET 

^IDPRO: LHLD VDMP 
CPI CR 
JZ GARRET 
CPI LF 
JZ LFNOT 
CPI BKSP 
JZ BS 
CPI FF 
JZ CLEAR 
MOV M,A 
UPDATE: INX H 
GONE: MVI M,0A0H 


;IF ANY VIDEO BOARD, 

FOR VEL-B OR VDM 1 BOARD. 
W.MULCHIN 


;GET THE CHAR INTO REG A 
;SAVE REGISTERS 


;CHAR. IS IN REG A 
;DO VIDEO ROUTINE 
;RESTORE REGISTERS 


;BACK TO CALLER 

;GET SCREEN POSITION POINTER 
;IS IT CARRIAGE RETURN? 

;IS IT LINEFEED? 

;PUT IN A BLANK 
;IS IT A RUBOUT? 

;IS IT CNTL-L? 

;IT HAS TO BE DATA 
;UPDATE POSITION 
;PUT CURSOR ON SCREEN 





IT) VD 00 PQ U QrH Ol LO CD PQ U fa fH CN3 IT) 00 

saaasasaaaaaaassss 

in m in in m imn mm mm imnin in m min 



JMP MAXLIN 

;CHECK FOR LINE > 64 

LFNOT: 

MVI M/ ' 

JMP UPDATE 

;PUT IN A SPACE 
;GET OUT NOW 

BS: 

MVI M ' * 

LHLD VDMP 

;GET CURRENT POSITION 


DCX H 

SHLD VDMP 

;SAVE CURSOR POSITION 

GARRET: 

JMP GCNE 

MVI M, 1 

;CHAR. IS A CARRIAGE RET. 


MW A,L 

ANI OCOH 

; UPDATE NEXT POSITION 


ADI 40H 

,*SET UP FOR NEW LINE 


EW L,A 

MVI A,0 

;ADDRESS OF NEW LINE 


ADC H 


MAXLIN: 

MW H,A 

SHLD VDMP 

MVI A,7FH 

ANA L 

;SAVE POINTER FOR NEXT CHAR 


RNR 

;EXIT BACK TO MAIN PROGRAM 


MVI M, 1 ' 

LXI H,SCRNTOP 



SHLD VDMP 

LXI H,LINES15 

;15 LINES OF SCREEN DATA 


LXI D,SCREEN 

;TOP OF SCREEN. SET UP 


LXI B,SCRLCNT 

; TO SCROLL 15 LINES 

SCROLL: 

MW A,M 

STAX D 

;START SCRCLLLING UP 
;STUFF REG A BY WAY OF D,E 


INX H 

INX D 

DCX B 

XRA A 

CMP B 

JNZ SCROLL 

,*15 LINES YET? 


CMP C 

JNZ SCROLL 

LXI H,SCRNTOP 

,*NOT DONE YET! 

BLANK: 

MVI M,' ' 

,-PUT BLANK ON SCREEN 


INX H 

MW A, L 

ANI 3FH 

;BLANK ENTIRE DATA LINE 


JNZ BLANK 



LXI H,SCRNTOP 
MVI M,0A0H 

,* STUFF CURSOR BACK 


RET 

;ALL DONE. 

CLEAR: 

LXI H,SCREEN 

;CLEAR SCREEN 


MVI A, ENDSCR 

,*THIS IS END CHECK 

CL ERA: 

CMP H 

JZ FINISH 

; IS IT END YET? 


MVI M,' ' 

,*PUT SPACE CN SCREEN 


INX H 

;BUMP POINTER 


JMP CLERA 

;G0 BACK IF NOT DfflE 

FINISH: 

LXI H,SCRNTOP 
MVI M,OAOH 

,* STUFF CURSOR BACK AGAIN 


SHLD VDMP 

;SAVE CURSOR POSITION. 


RET 

;ALL DONE. 


ENDIF 

;END OF VDM DRIVER. 


SELECT DISK NUMBER ACCORDING TO REGISTER C. 
ALSO CHECK IF DISK HAS BEEN LOGGED IN BEFORE. 
IF NOT, LOG IT IN AND CHECK DENSITY 


79 

E603 

21BD5D 

BE 

C8 

F5 

3AC95D 

3D 

C24A5B 
216OSD 
CD275D 
FI 

32BD5D 

C641 

4F 

CDFF5A 

CDE95A 

AF 


§ELDSK: MW 
ANI 
LXI 
CMP 
RZ 

HJSH 

LDA 

DCR 

JNZ 

LXI 

CALL 

POP 

STA 

ADI 

MW 

CALL 

CALL 

XRA 


A,C 

3 

H,DISKNO 

M 

A 

NODSKS 

A 

SELMOR 

H.MNTMSG 

PMSG 

A 

DI^KNO 

C,A 
CONOT 
CON IN 
A 


GET NEW DISK NUMBER. 

ONLY LOOK AT 2 LSB'S. 

GET ADR OF OLD DISK NO. 
NEW = OLD? 

IF SO, RETURN. 

SAVE DISK NUMBER. 

GET NUMBER OF DISKS. 

IF MORE THAN CNE DISK, 
TAKE CARE OF IT. 

GET ADR OF MOUNT MESSAGE. 
PRINT "MOUNT 
GET DISK NUMBER. 

UPDATE OLD WITH NEW. 

ADD ASCII FOR 'A'. 

PUT INTO C. 

PRINT IT. 

READ A CARRIAGE RETURN. 
SET A==0 FOR NO ERRO IND. 
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5B49 C9 

RET 


5B4A FI 

SELMOR: POP 

A 

5B4B 7E 

MOV 

IF 

A,M 

DUAL 


ANI 

0FEH 


ENDIF 

5B4C 5F 

MOV 

E,A 

5B4D 1600 

MVI 

D,0 

5B4F 21C05D 

LXI 

H,TRTAB 

5B52 E5 

HJSH 

H 

5B53 19 

DAD 

D 

5B54 DBF9 

IN 

TRACK 

5B56 77 

MOV 

M,A 

5B57 79 

MOV 

A,C 


IF 

DUAL 


ANI 

0FEH 


ENDIF 

5B58 5F 

MOV 

E,A 

5B59 El 

POP 

H 

5B5A 19 

DAD 

D 

5B5B 7E 

MOV 

A,M 

TRACK 

5B5C D3F9 

OUT 

5B5E 79 

MOV 

A,C 

5B5F 32BD5D 

STA 

DISKNO 

51052 87 

ADD 

A 

5B63 8/ 

ADD 

A 

5B64 87 

ADD 

A 

5B65 87 

ADD 

A 

5B66 32CC5D 

STA 

LATCH 


; RETURN FROM SELDSK. 
;MAKE STACK RIGHT. 
;GET OLD DISK NUMBER. 
;IF DUAL DRIVE, 

; CL EAR OUT BIT 0. 


;PUT OLD DISK NO. IN D&E. 

;GET ADDRESS OF TRACK TABLE. 
;SAVE FOR LATER 
;ADD DISK NO. TO ADDRESS. 
;READ 1771 TRACK REGISTER. 
;PUT INTO TABLE. 

;GET NEW DISK NUMBER. 

;IF A DUAL DRIVE, 

; CL EAR BIT 0. 


;PUT NEW DISK NO. IN D&E. 

;RESTORE ADDRESS CF TRACK TABLE 
,-ADD DISK NO. TO ADDRESS. 

;GET NEW TRACK NUMBER. 

;PUT INTO 1771 TRACK REG. 

;UPDATE OLD DISK NUMBER. 

,*RJT BITS 1&2 AT 4&5. 


;SAVE NEW LATCH CODE. 


• 

•SELECT DENSITY BASED ON BYTE VALUE 
,-IN TRACK 0 SECTOR 1 ADDRESS 7EH. 
;IF THIS BYTE IS A ODDH, THEN THE. 
•DISK IS DOUBLE DENSITY, ELSE, IT'S 
;SINGLE DENSITY. 


5B69 C5 

Density:push 

B 

5B6A 21C45D 


LXI H,DRVFLG 

5B6D 0600 


MVI B,0 

5B6F 09 


DAD B 

5E70 7E 


MOV A,M 

5B71 B7 


ORA A 

5B72 FA9B5B 


JM LOGED 

5B75 E5 


HJSH 

H 

5B76 3ACC5D 


LDA 

LATCH 

5B79 D3FC 


OUT 

DCQNT 

5B7B 2ABB5D 


LHLD 

DMAADD 

5B7E E5 


HJSH 

H 

5B7F CDC35B 


CALL 

HOME 

5B82 3E01 


MVI A,1 

5B84 32BA5D 


STA 

SECT 

5B87 21CE5D 


LXI H,DBUFF 

5B8A 22BB5D 


SHLD 

DMAADD 

5B8D CD835C 


CALL 

READ 

5B90 El 


POP 

H 

5B91 22BB5D 


SHLD 

DMAADD 

5B94 El 


POP 

H 

5B95 3A4C5E 


LDA DBUFF+7 EH 

5B98 F680 


ORI 

80H 

5B9A 77 


MOV 

M,A 

5B9B 010700 

LOGED: 

LXI 

B,7 

5B9E E612 


ANI 

12H 

5 BAD B7 


ORA 

A 

5BA1 212D5A 


LXI 

H.SDTAB 

5BA4 CAA85B 


JZ 

DENSITl 


r 

IF 

DUBSID 



DAD 

B 



CPI 

2 



JZ 

DENSITl 



DAD 

B 



CPI 

10H 



JZ 

DENSITl 



ENDIF 

5BA7 09 

f 

DAD 

B 

5BA8 EB 

DENSITl 

:XCHG 



SAVE B,C 

INDEX INTO DRIVE BYTE FLAG 
ZERO REG B 

ADD THE DRIVE NUMBER 

GET THE BYTE FLAG 

SET THE FLAGS 

SKIP IF LOGGED IN BEFORE 

SAVE DRIVE TABLE POINTER. 

SELECT DRIVE 

GET PRESENT DMA ADDRESS 

SAVE CN STACK 

HOME DRIVE 

SET FOR SECTOR 1 

SAVE SECTOR TO READ 

POINT TO DMA BUFFER 

SET UP THE DMA ADDRESS 

READ TRK 0, SEC 1 INTO DBUFF 

RECOVER DMAADD FROM STACK 

RESTORE IT 

RESTORE DRIVE TABLE POINTER. 

GET THE DENSITY CODE BYTE 

set logged in bit 

place it in flag table. 

index value through drive table. 

MASK DENSITY AND SIDE BITS OUT. 

SINGLE DENSITY? 

point to start of tables 

yes, overlay par am. block 


;no, add offset to next table 
;single den doub sided? 

;yes 

;no 

;doub den single sided? 

;yes 


;no, must be doub den , doub sided 
;drive table pointer —> d,e 
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5BA9 

1A 



LDAX D 

GET LOG BYTE 

5 BAA 

13 



INX 

D 

BUMP POINTER 

5 BAB 

32C85D 



STA 

DENS 

SET DENSITY 

5BAE 

1A 



LDAX D i 

GET A BYTE FROM TABLE 

5BAF 

13 



INX 

D 

BUMP POINTER 

5BB0 

32154D 



STA BDOS+15 ; 

CHANGE TRANS FUNCTION 

5 BBS 

213A4D 



LXI 

H,BDOS+52 ; 

POINT TO CONSTANT DATA 

SBB6 

0605 



MVI 

B,5 i 

COUNT = 5 

5BB8 

1A 

MOVE: 

LDAX D ; 

GET A BYTE FROM TABLE 

5BB9 

77 



MOV 

M,A 

OVERLAY CP/M 

5BBA 

13 



INX 

D 

BUMP 

5BBB 

23 



INX 

H 

POINTERS 

5 BBC 

05 



DCR 

B 

DECREASE COUNT 

5BBD 

C2B85B 



JNZ 

MOVE 

AND LOOP TILL DONE 

5BC0 

Cl 



POP 

B 

RESTORE B,C 

5BC1 

AF 



XRA 

A 

;SET A = 0. 

5BC2 

C9 



RET 


rRETURN FROM SELDSK. 



/ 

• 

t 

MOVE DISK 

TO TRACK ZERO. 

5BC3 

3E02 

fidME: 

MVI 

A.O+STPRAT ; 

RESTORE 

5BC5 

D3F8 



OUT 

DCOM 


5BC7 

QE00 



MVI 

C,Q ; 

: TRACK 0 



r 

• 

f 

SET 

TRACK 

NUMBER TO WHATEVER IS IN REGISTER C, 


ALSO PERFORM MOVE TO THE CORRECT TRACK (SEEK) . 


5BC9 

2ACC5D 

&ETTRK: LHLD LATCH 

;get new and old latch. 

5BCC 

7C 

MOV 

A,H 

;get latch value. 

5 BCD 

E6B7 

ANI 

0B7H 

;strip density and side bits. 

5BCF 

67 

MOV 

H,A 

;restore it. 



' IF 

DUBSID 

;if using double sided drive. 



LDA 

DENS 

;check if double sided. 



RRC 





RRC 


;look at bit 1. 



JNC 

NOES ID 

;if bit 1 = 0, it's single sided. 



MOV 

A,C 

;it*s doub sided, so get track number 



RRC 


;divide by 2. 



MOV 

B,A 

;save it in reg b. 



MOV 

A,L 

;get old latch value. 



JC 

SIDE2 

;change side if odd track. 



ANI 

OBFH 

;clear side bit from latch. 



JMP 

SETLAT 

;go set the latch. 



&IDE2: ORI 

40H 

;turn on side select bit. 



SETLAT: STA 

CLATCH 

;save it for later. 



ANI 

OBFH 

;clear side bit. 



CALL 

CLDLAT 

;check for drive change. 



MOV 

A,B 

;restore doub sided trk number. 



ANI 

7FH 

;clear bit 7. 



MOV 

CrA 

;trk number new in reg c. 



JMP 

TRKSET 

;check for density of track going to. 



ENDIF 




IF 

NOT DUBSID 

;if not using double sided drive 

5 EDO 

C3DE5B 

JMP 

NOTSID 

;jump around subroutine. 



ENDIF 


5BD3 

BC 

6LDLAT: CMP 

H 

;new = old? 

5BD4 

3EFF 

mi 

A.OFFH 

;if not, set = ff 

5BD6 

C2DA5B 

JNZ 

SFLAG 


5BD9 

2F 

CMA 


;new = old, set = 0. 

5BDA 

32BF5D 

SFLAG: STA 

HLSF 

;save head load select flag. 

5BDD 

C9 

RET 



5BDE 

7D 

NCTSID: MCV 

A, L 

;get latch value. 

5BDF 

32CD5D 

STA 

CLATCH 

;save it 

5BE2 

CDD35B 

CALL 

CLDLAT 

;check for drive change. 

5BE5 

3AC85D 

feKSET: LDA 

DENS ;CHECK DRIVE DENSITY FLAG 

5BE8 

OF 

RRC 

;IS IT ZERO ? 

5BE9 

D2FA5B 

JNC 

TRKSD ;YES, WE ARE SINGLE DENSITY 

5BEC 

79 

MOV 

A, C ;RESTORE TRACK NUMBER 

5 BED 

FE01 

CPI 

1 ;IS IT TRACK 1 ? 

5BEF 

DAFA5B 

JC 

TRKSD ;IF LESS THEN, SET SINGLE DEN. 

5BF2 

3ACD5D 

LDA 

CLATCH ;GET THE CURRENT LATCH VALUE 

5BF5 

F608 

ORI 

DDEN ;SET BIT 4 ON (DOUB DENSITY ON) 

5BF7 

C3FF5B 

JMP 

TRKDD 


5BFA 

3ACD5D 

TRKSD: LDA 

CLATCH ;GET CURRENT LATCH VALUE 


Paqe Oil 





5BFD 

E6F7 


ANI 

DDDSB 

;TURN OFF BIT 4 (SINGLE DENSITY ON) 

5BFF 

32CD5D 

TRKDD: 

STA 

CLATCH 

;SAVE NEW CURRENT LATCH VALUE 

5C02 

D3FC 


OUT 

DCQNT 

; AND SET THE HARDWARE LATCH 

5C04 

79 


MOV 

A.C 

TRK 

;RESTORE TRACK NUMBER 

5C05 

32B95D 


STA 

;UPDATE CLD WITH NEW. 



; MOVE 

THE HEAD TO THE 

TRACK IN REGISTER A. 

5C08 

C5 

&EEK: 

PUSH B 

;SAVE B&C. 

5C09 

47 


MOV 

B.A 

;SAVE DESTINATION TRACK. 

5C0A 3E0A 


MVI 

A £ RTCNT 

SERCNT 

;GET RETRY COUNT. 

5C0C 

32CB5D 

SRETRY: 

STA 

;STORE IN ERROR COUNTER. 

5C0F 

DBF9 


IN 

TRACK 

;READ PRESENT TRACK NO. 

5C11 

4F 


MOV 

C.A 

;SAVE IN C. 

5C12 

79 


MOV 

A, C 

;DELAY. 

5C13 

B8 


CMP 

B 

;SAME AS NEW TRACK NO.? 

5C14 

78 


MOV 

A.B 

NOTHR 


5C15 

C21A5C 


JNZ 

;JUMP IF NOT THERE. 

5C18 

Cl 

THERE: 

POP 

B 

;RESTORE B&C. 

5C19 

C9 

NOTHR: 

RET 


;RETURN FROM SEEK. 


DELAY LOOP TO ALLOW TUNNEL 
ERASE TO END DURING WRITE. 


5C1A F5 


PUSH PSW 


5C1B 3EDO 


MVI A.ODOH 

;COUNT =208 

5C1D 3D 

BUSY1: 

DCR A 

;LOOP 

5C1E C21D5C 


JNZ BUSY1 

; TILL ZERO 

5C21 FI 


POP PSW 


5C22 78 


MOV A.B 

; RESTORE A FROM B. 

5C23 D3FB 


OUT DDATA 

:TRACK TO DATA REGISTER. 

5C25 3E16 


MVI A. 14H+STPRATH-HLAB ;GET STEP RATE, ] 

5C27 D3F8 


OUT DCOM 

;SEEK WITH VERIFY. 



IF NOT DMACNTL 

5C29 DBFC 


IN WAIT 


5C2B DBF8 


IN DSTAT 

;CHECK STATUS 



ENDIF 




IF DMACNTL 



BUSY2: 

CALL SLOOP 

;USE DMA CHECK PORT 



ENDIF 


5C2D E691 


ANI 91H 

;LOCK AT BITS. 

5C2F CA185C 


JZ THERE 

;OK IF ZERO. 



IF TESTING 

;IF TESTING FOR ERRORS 



PUSH H 

;SAVE H&L. 



LXI H/SECNT 

;GET ADR OF SEEK ERR CIR 



INR M 

.•ONE MORE SEEK ERROR. 



POP H 

.•RESTORE H&L. 



ENDIF 


5C32 3ACB5D 


LDA SERCNT 

,-GET ERROR COUNT. 

5C35 3D 


DCR A 

.•DECREMENT COUNT. 

5C36 C20C5C 


JNZ SRETRY 

.‘RETRY SEEK. 

5C39 Cl 


POP B 

;RESTORE B&C. 

5C3A 21585D 


LXI H.SKMSG 

;PRINT "SEEK ". 

5C3D DBFS 


IN DSTAT 

.•READ DISK STATUS. 

5C3F E691 


ANI 91H 

.•LOCK AT ERROR BITS. 

5C41 57 


MOV D.A 

;PUT IN REG D. 

5C42 C3AC5C 


JMP ERMSG 

;DO COMMON ERR MESSAGES. 


; SET DISK SECTOR NUMBER. 

• 

5C45 79 

SETSEC: 

MOV A, C 

,-GET SECTOR NUMBER. 

5C46 32BA5D 


STA SECT 

.-PUT AT SECT # ADDRESS. 

5C49 C9 


RET 

.•RETURN FROM SETSEC. 


; SETT DISK DMA ADDRESS. 


5C4A 60 

SETDMA: 

MOV H,B 

.•MOVE B&C TO H&L. 

5C4B 69 


MOV L.C 


5C4C 22BB5D 


SHLD DMAADD 

;PUT AT DMA ADR ADDRESS. 

5C4F C9 


RET 

.•RETURN FROM SETDMA. 


; HOLD 

- GET HEAD-LOAD BIT IF REQUIRED. 

5C50 3ABF5D 

fe)LD: 

LDA HLSF 

,-GET HEAD-LOAD FLAG. 

5C53 B7 


ORA A 

;IS A = ZERO? 
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5C54 

CA655C 

JZ 

HDLD1 

;HOP IF SO. 

5C57 

2F 

CMA 


;SET A = 0. 

5C58 

32BF5D 

STA 

HLSF 

;SET FLAG = 0 IF NOT. 


IF CHANGING TO A NEW DRIVE, PERFORM A SEEK 
TO THE SAME TRACK TO ALLCW THE HEAD TO UNLOAD. 


5C5B 

DBF9 

• 

t 

IN TRACK 

;GET PRESENT TRACK 

5C5D 

D3FB 


OUT DDATA 

; AND TELL CONTROLLER 

5C5F 

3EL6 


MVI A, 14H+STPRAT /GET STEP COMMAND 

5C61 

D3F8 


OUT DCOM 

/SEND IT TO FLOPPY CONTROLLER 




IF NOT DMACNTL 

5C63 

DBFC 


IN WAIT 

ENDIF 

;WAIT FOR INTRQ 




IF DMACNTL 
CALL SLOOP 

ENDIF 

/USE DMA CHECK PORT 

5C65 

DBF8 

HDLD1: 

IN DSTAT 

;READ 1771 STATUS. 

5C67 

E620 


ANI 20H 

;LOCK AT HL BIT. 

5C69 

3E04 


MVI A, 4 


5C6B 

C8 


RZ 


5C6C 

97 


SUB A 

;HEAD IS LOADED 

5C6D 

C9 


RET 

/RETURN FROM HDLD. 



/ 

IF NOT DMACNTL 

5C6E 

32CA5D 

DSKSET: 

STA ERCNT 

;SAVE RETRY COOUNT 

5C71 

3 EDO 


MVI A.0D0H 

OUT DCOM 

;CAUSE INTRP 

5C73 

D3F8 



5C75 

E3 


XTHL 

;SCME 

5C76 

E3 


XTHL 

ENDIF 

,• DELAY 




IF INTRP 

DI 

ENDIF 





IF NOT DMACNTL 

5C77 

2ABB5D 


LHLD DMAADD 

;STARTING ADDRESS 

5C7A 

3ABA5D 


LDA SECT 

/GET SECTOR NUMBER 

5C7D 

D3FA 


OUT SECTP 

/TELL CONTROLLER 

5C7F 

CD505C 


CALL HDLD 

;CHECK FOR HEAD LOADED 

5C82 

C9 


RET 

ENDIF 



; READ THE SECTOR AT SECT, FROM THE PRESENT TRACK. 
/ USE STARTING ADDRESS AT DMAADD. 


5C83 

3 BOA 

• 

READ: 

MVI 

A,RTCNT 

;GET RETRY COUNT. 



RRETRY: 







IF 

DMACNTL 





LXI 

B,80D0H 

;FLOPPY READ, FORCE INTRP. 




LXI 

D.40 80H 

/DMA READ, BYTE COUNT. 




CALL 

DMARW 

/COMMON READ/WRITE ROUTINE. 




ENDIF 





IF 

INTRP 

,*IF INTERRUPTS ALLOWED, 




DI 


/DISABLE THEM HERE. 




ENDIF 





IF 

NOT DMACNTL 

5C85 

0680 


MVI 

B.80H 

•FLOPPY READ COMMAND. 

5C87 

CD6E5C 


CALL DSKSET 

;SET UP DISK CONTROLLER 

5C8A 

BO 


ORA 

B 

;SET READ COMMAND 

5C8B 

D3F8 

READE: 

OUT 

DCOM 

/SEND COMMAND TO 1771. 

5C8D 

DBEG 

RLOOP: 

IN 

WAIT 

/WAIT FOR DRQ OR INTRQ. 

5C8F 

B7 


ORA 

A 

/SET FLAGS. 

5C90 

F29A5C 


JP 

RDDCNE 

/DONE IF INTRQ. 

5C93 

DBFB 


IN 

DDATA 

/READ A DATA BYTE FROM DISK. 

5C95 

77 


MOV 

M,A 

/PUT BYTE INTO MEMORY. 

5C96 

23 


INX 

H 

/INCREMENT MEMORY POINTER. 

5C97 

C38D5C 


JMP 

RLOOP 

/KEEP READING. 

5C9A 

DBF8 

RDDCNE: 

IN 

DSTAT 

/READ DISK STATUS. 


ENDIF 


IF INTRP ;IF INTERRUPTS ALLOWED, 

El /ALLOW AGAIN HERE. 

ENDIF 
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5CCB 57 
5CCC E610 
5CCE C8 


5CF8 3E0A 


;LOCK AT ERROR BITS. 

;RETURN IF NONE. 

;CHECK FOR SEEK ERROR. 


;GET RD ERR COUNT ADDR. 
;CNE MORE ERROR. 


?GET ERROR COUNT. 

;DECREMENT COUNT. 

;TRY TO READ AGAIN. 

;PRINT "READ ". 

;PRINT ORIGIN MESSAGE. 

;NEED MORE ROOM? 

;GET ERROR BITS. 

?IF BIT 4 IS HIGH, 

;PRINT "RECORD NOT FOUND" 

;GET ERROR BITS. 

;IF BIT 3 IS HIGH, 

;PRINT "CRC ERROR* 1 . 


;PRINT "ERROR." 

;SET FOR PERM ERR MSG. 
,-SET FLAGS. 


ERCHK - CHECK FOR RECORD NOT FOUND ERROR. 


5C9C 

E69D 


ANI 

9DH 

5C9E 

C8 


RZ 


5C9F 

CDCB5C 


CALL ERCHK 




IF 

TESTING 




LXI 

H,RE)CNT 




INR 

M 




MCV 

A,M 




CMA 




OUT 

QFFH 




ENDIF 

5CA2 

3ACA5D 


LDA 

ERCNT 

5CA5 

3D 


DCR 

A 

5CA6 

C2855C 


JNZ 

RRETRY 

5CA9 

213B5D 


LXI 

H,RDMSG 

5CAC 

CD275D 

ERMSG: 

CALL PMSG 



ERMSG1: 






IF NOT VIDEO 

5CAF 

7A 


MCV 

A,D 

10H 

5CB0 

E610 


ANI 

5CB2 

21325D 


LXI 

H.RNMSG 

FMSG 

8fi D 

5CB5 

5CB8 

£427 5D 


CNZ 

MCV 

5CB9 

E608 


ANI 

5CBB 

21365D 


LXI 

H,CRCMSG 

PMSG 

5CBE 

C4275D 


CNZ 




ENDIF 

5CC1 

21515D 


LXI 

H,ERRMSG 

5CC4 

CD275D 


CALL PMSG 

5CC7 

3E01 


MVI 

A,1 

5CC9 

E7 


ORA 

A 

5 CCA 

C9 


RET 



feRCHK: 


MCV D,A 
ANI 10H 
RZ 


;SAVE ERROR BITS IN D. 
;IF RECORD NOT FOUND, 


;CHECK FOR SEEK TO CORRECT TRACK, 

;AND CHANGE IF NECESSARY. 

;SEND COMMAND TO 1771 
;TO READ ADDRESS. 


;WAIT FOR DRQ OR INTRQ. 


5CCF 

3EC4 

CHKSK: 

MVI 

A.0C4H 

DCOM 

5CD1 

D3F8 


OUT 




IF 

NOT DMACNTL 

5 CDS 

DBFC 


IN 

WAIT 




ENDIF 




IF 

DMACNTL 




CALL 

SLOOP 




ENDIF 

5CD5 

DBFB 


IN 

DDATA 

5CD7 

47 


MOV 

B,A 

WATT 

5CD8 

DBFC 

CHKS2: 

IN 

5CDA 

B7 


ORA 

A 

5CDB 

F2E35C 


JP 

CHKS3 

5CDE 

DBFB 


IN 

DDATA 

5 CEO 

C3D85C 


JMP 

CHKS2 

5CE3 

DBF8 

CHKS3: 

IN 

DSTAT 

5CE5 

B7 


ORA 

A 

5CE6 

CAF25C 


JZ 

CHKS4 

5CE9 

CDC35B 


CALL 

HOME 

5CEC 

3AB95D 

CHKS5: 

LDA 

TRK 

5CEF 

C3085C 


JMP 

SEEK 

5CF2 

78 

CHKS4: 

MCV 

A»B 

TRACK 

5CF3 

D3F9 


OUT 

5CF5 

C3EC5C 


JMP 

CHKS5 


,*READ THE TRACK ADDRESS. 
;SAVE IN REGISTER B. 
;WAIT FOR INTRQ. 

;SET FLAGS. 

;DONE WITH READ ADR OP. 
,*READ ANOTHER BYTE. 

;DO IT AGAIN. 

,-READ DISK STATUS. 

;SET FLAGS. 

;READ ADR OK IF 0. 

,* OTHERWISE, HOME FIRST. 


;UPDATE TRACK REGISTER. 
;RETURN FROM ERCHK. 


WRITE THE SECTOR AT SECT, CM THE PRESENT TRACK. 
USE STARTING ADDRESS AT DMAADD. 


&RITE: 

WRETRY: 


MVI A,RTCNT ;GET RETRY COUNT. 


IF DMACNTL 
LXI B,0A0D0H 
LXI D,08080H 


,• FLOPPY WRITE, FORCE INTRP 
;DMA WRITE, HTE COUNT 
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COMMON ROUTINE 





CALL DMARW 
ENDIF 

;COMMON ROUTINE 




IF NCT DMACNTL 

5CFA 

06A0 


MVI B,0A0H 
CALL DSKSET 

; WRITE COMMAND 

5CFC 

CD6E5C 



5CFF 

BO 


ORA B 


5D00 

D3F8 

WRITE2: 

OUT DCOM 


5D02 

DBFC 

WLOOP1: 

IN WAIT 

;WAIT FOR READY. 

5D04 

B7 


ORA A 

;SET FLAGS. 

5D05 

F20F5D 


JP WDONE 

/HOP OUT WHEN DONE. 

5D08 

7E 


MOV A,M 

CUT DDATA 

;GET BYTE FROM MEM. 

5D09 

D3FB 


;WRITE CNTO DISK. 

5D0B 

23 


INX H 

; INCREMENT MEM PTR. 

5D0C 

C3025D 


JMP WLOOP1 

/KEEP WRITING. 

5D0F 

DBF8 

WDONE: 

IN DSTAT 
ENDIF 





IF INTRP 

;IF INTERRUPTS ALLOWED, 




El 

ENDIF 

; ENABLE AGAIN HERE. 

5D11 

E6FD 


ANI OFDH 

/LOCK AT THESE BITS. 

5D13 

C8 


RZ 

;RETURN IF NO ERR. 

5D14 

CDCB5C 


CALL ERCHK 

;CHECK/CORRECT SEEK ERR. 




IF TESTING 

;IF TESTING FOR ERRORS 




LXI H,WECNT 

/GET ADR OF WRITE ERR CTR 




INR M 

/ONE MORE WRITE ERROR. 




WJJ A,M 

CMA 





OUT OFFH 
ENDIF 


5D17 

3ACA5D 


LDA ERCNT 

/GET ERROR COUNT. 

5D1A 

3D 


DCR A 

/DECREMENT COUNT. 

5D1B 

C2FA5C 


JNZ WRETRY 

;TRY TO WRITE AGAIN. 

5D1E 

21435D 


LXI H,WTMSG 

; PRINT "WRITE ". 




IF NOT VIDEO 

/NEED MORE ROOM? 

5D21 

CD275D 


CALL PMSG 


5D24 

C3AF5C 


JMP ERMSG1 
ENDIF 

;DO COMMON MESSAGES. 




IF VIDEO 
JMP ERMSG 

;WE NEED A RETURN. 




ENDIF 




* PRINT THE MESSAGE AT H&L UNTIL A ZERO. 

5D27 

7E 

PMSG: 

MOV A,M 

;GET A CHARACTER. 

5D28 

B7 


ORA A 

;IF IT'S ZERO, 

5D29 

C8 


RZ 

,• RETURN. 

5D2A 

4F 


MOV C,A 

/OTHERWISE, 

5D2B 

CDFF5A 


CALL CONOT 

/PRINT IT. 

5D2E 

23 


INX H 

/INCREMENT H&L, 

/AND GET ANOTHER. 

5D2F 

C3275D 


JMP PMSG 



• CBIOS 

MESSAGES 




# 

IF NOT VIDEO 

/NEED MORE ROOM? 

5D32 

49442000 

RNMSG: 

DB 'ID ',0 

DB 1 CRC ',0 


5D36 

4352432000CRCMSG: 





ENDIF 


5D3B 

0D0A526 561RDMSG: 

DB 0DH,0AH, 

'Read '.0 
'Write ',0 

5D43 

0D0A577 26 9WIMSG: 

DB 0DH/0AH, 

5D4C 

426F6F7 420BTMSG: 

DB 'Boot ' 


5D51 

4552524F52ERRMSG: 

DB 'ERROR.' 

,0 

'Seek ' .0 
'Mount ,0 

5D58 

0D0A536565SKMSG: 

DB 0DH,0AH, 

5D60 

0D0A4D6F7 5MNTMSG: 

DB 0DH,0AH, 

5D69 

0D0A5 4617 2SMSG: 

DB 0DH,0AH, 

'Tarbell ' 

5D73 

3234 


IB MSIZE/10 

+'0',MSIZE MOD 10 + 'O' 

5D75 

4B2043504D 

IB 'K cm V 

1.4 of 7-14-80' 

5D8A 

ODOA 


IB 0DH,0AH 





IF TARBELL 

/IF USING TARBELL CHJ. 




DB 'Tarbell 
ENDIF 

CPU, ' 
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IF STD ;IF STANDARD I/O, 

5D8C 5374616E64 DB 'Standard ' 

ENDIF 

IF MS 102 ;IF MITS 2SI0, 

DB '2SI0 ' 

ENDIF 

IF ISI02 ;IF IMSAI SIO-2, 

DB 'SIO-2 ' 

ENDIF 

IF TUART ;IF TUART, 

DB 'Tuart ' 

ENDIF 

IF SOLOS ;IF PROC TECH SOLOS, 

DB 'Solos ' 

ENDIF 

IF VDM ?IF PROC TECH VDM, 

DB 'VDM ' 

ENDIF 

IF FLASH ;IF VG FLASHWRITER, 

DB 'Flashwriter ' 

ENDIF 

IF VB1 ;IF SSM VB1-B, 

03 'VB1 ' 

ENDIF 

IF DUBSID ;IF DOUBLE-SIDED, 

DB 'Double-Sided ' 

ENDIF 

IF DUAL ;IF DUAL DRIVE, 

DB 'Dual ' 

ENDIF 

IF DMACNTL ;IF USING DMA CONTROL 

DB 'DMA ' 

ENDIF 

5D95 5645522E DB 'VER.' 

5D99 0D0A486F77 DB 0DH,0AH, 'How Many Disks? ',0 

© 

• WRITE A CHARACTER ON LISTING DEVICE. 


filST: 




IF LSTNUL 

MVI A,0DH 

CMP C 

JZ LINUL 

ENDIF 

;IF NULLS OR PAGING, 

;IF IT'S A CR, 

;IHEN HOP OUT TO 
;NULL ROUTINE. 



IF LSTPAG 

MVI A,0AH 

CMP C 

JZ LINUL3 

ENDIF 

;IF PAGING 
;GET A LINEFEED 
;DOES IT MATCH? 

5DAC 

I® 02 

LIBSY: IN LSTAT 

;READ LISTER STATUS. 

5DAE 

E680 

IF NOT TARDEL 
ANI LRBIT 

ENDIF 

,-LOCK AT READY BIT. 



IF TARDEL 

ANI 81H 

XRI 81H 

ENDIF 

,-MASK 

5DB0 

C2AC5D 

IF TARDEL OR RDYLO ;IF READY WHEN LOW, 

JNZ LIBSY ,*LOOP TILL LOW. 

ENDIF 



IF NOT TARDEL 
JZ LIBSY 

ENDIF 

AND RDYHI ;IF READY WHEN HIGH, 

;LOGP TILL HIGH. 
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5DB3 79 
5DB4 D303 
5DB6 C9 


5DB7 C9 

5DB8 C9 


5DB9 

5DBA 

5DBB 


5DBD 


5DBE 

5DBF 


MOV A f C ;GET DATA BYTE. 

OUT LDATA ; PRINT IT. 

RET ,-RETURN FROM LIST. 

IF LSTNUL OR LSTPAG ;IF NULLS OR PAGING, 
LINUL: PUSH B jSAVE B&C. 

MVI BjjjtLNULL AND OFFH) +1 ,-GET NULL COUNT 

LINUL1: CALL LTBSY - - 

MVI C,0 
DCR B 
JNZ LINUL1 
JMP LINUL2 
ENDIF 


;PRINT (CR FIRST) . 
,-GET NULL CHAR. 

;DECREMENT COUNTER. 
,-DO NEXT NULL. 

,-EXIT THE ROUTINE. 


A 

LFCNT 


IF LSTPAG 

LINUL3: PUSH B 

LDA LFCNT 
INR 
STA 
CPI 
MVI 
JNZ 
XRA 
STA 
MVI 

NOTEOP: MVI 


LSTPA1: 


;IF LIST DEV. PAGING, 
;SAVE B.C PAIR 
;GET LINE-FEED COUNT. 

;INCREMENT IT. 

* SAVE IT BACK 

LINCNT-(LIN^NT/llf ;END*OF PAGE? 
B,1 ,-SET UP FOR 1 LF. 

NOTEOP ;HOP IF NOT END. 

A ,-SET LF COUNT = 0. 

LFCNT 

B, (LINCNT/11) +1 ,- BETWEEN PAGES. 

™ x QOAH ;GET LINE-FEED CODE. 

CALL LTBSY ; PRINT LINE-FEED. 

DCR B ; DECREMENT LF COUNTER. 

JNZ LSTPA1 ,-DO NEXT LINE FEED? 

ENDIF 

IF LSTNUL OR LSTPAG ;IF NULLS OR PAGING, 


LINUL2: POP B 

MOV A,C 

RET 

ENDIF 


RESTORE B&C. 

,-RESTORE A. 

,-RETURN FROM LIST. 


,- PUNCH PAPER TAPE. 
« 

fUNCH: RET 

t 


;RETURN FROM PUNCH. 
, NORMALLY USED TO READ PAPER TAPE. 


Deader: ret 


;RETURN FROM READER. 


NOTE: AS THERE ARE ONLY NINE SECTORS 
AVAILABLE FOR CBIOS CN THE SECOND SYSTEM TRACK (1) , 
THE LAST ADDRESS BEFORE THIS POINT SHOULD BE NO 
GREATER THAN THE CBIOS STARTING ADDRESS + 047F (HEX) 
THIS WILL NORMALLY BE XE7F (HEX) . 


BIOS SCRATCH AREA. 


TRK: DS 
SECT: DS 
DMAADD: DS 


1 

1 

2 


,-CURRENT TRACK NUMBER. 

,- CURRENT SECTOR NUMBER. 
;DISK TRANSFER ADDRESS. 


; THE NEXT SEVERAL BYTES, BETWEEN STARTZ AND 
i ENDZ, ARE SET TO ZERO AT COLD BOOT TIME. 


STARTZ: 
DISKNO: DS 

IF 


1 

TESTING 


;START OF ZEROED AREA. 
fDISK NUMBER (TO CP/M). 


ERROR COUNTS. THESE LOCATIONS KEEP TRACK OF THE 
NUMBER OF ERRRS THAT OCCUR DURING READ, WRITE, 

OR SEEK OPERATIONS. THEY ARE INITIALIZED ONLY 
WHEN A COLD-START IS PERFORMED BY THE BOOOTSTRAP. 


&ECNT: DS 1 

WECNT: DS 1 

SECNT: DS 1 

ENDIF 

; SPECIAL FLAGS. 

fcONOTF: DS 1 

HLSF: DS 1 


IREAD ERROR COUNT. 

;WRITE ERROR COUNT. 
,-SEEK ERROR COUNT. 


;NO-PRINT FLAG (WHEN FF) 
HEAD-LOAD SELECT FLAG. 
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IF LSTPAG 





LFCNT: 

DS 1 

ENDIF 

; PAGING LINE-FEED COUNT. 




; TRTAB 

- DISK TRACK 

TABLE - PRESENT POSITION OF 




• 

t 

HEADS FOR UP 

TO 4 DRIVES. 



5DC0 

• 

feTAB: 

DS 4 




5DC4 

DRVFLG: 

DS 4 

; DRIVE FLAG BYTES FOR 4 DRIVES 



5DC8 

DENS: 

DS 1 

; CURRENT DRIVE FLAG BYTE 




• VDM SCRATCH AREA. 





feNDZ: 

IF VIDEO 

,-END OF ZEROED AREA. 

,-IF VIDEO BOARD IN, 

;VIDEO CURSOR POSITION. 




VDMP: 

DS 2 




ENDIF 


5DC9 

NCDSKS: DS 

1 

;NUMBER OF DISKS. 

5DCA 

ERCNT: DS 

1 

;ERROR COUNT FOR RETRIES. 

5DCB 

SERCNT: DS 

1 

,-SEEK RETRY COUNTER. 

5DCC 

LATCH: DS 

1 

;NEW CODE FOR LATCH. 

5DCD 

CLATCH: DS 

1 

;CURRENT CODE IN LATCH. 

5DCE 

5E4E 

B> 

DBUFF: DS 

END 

128 

; DENSITY SELECT BUFFER 





TARBELL ELECTRONICS CP/M COLDSTART LOADER 
VERSION OF 7-3-80. 


Modified for DMA Control - ..1-5-80. - 

Modified for reading 1arger bios from IRK 1 - 6-5-80. 

Modified for Tarbell CPU Card - 7-3-80. 

G.W.Mulchin 
Tarbell Electronics 


; Copyright (c) 1980 Tarbell Electronics 

• 

NOTE ** 

; The equate for Double Density (DOUBDEN) must only be 

; set true for a disk which is formatted in double density only 
,* and one which you wish to put an operating systsn on to, 

; Otherwise, leave it false if you are building an operating 
,- system on to a single density formatted disk. 

; THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROGRAM, 
; AND EXECUTED. ITS PURPOSE IS TO LOAD AND EXECUTE THE CP/M DISK 
; OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. 

0000 = FALSE BQU 0 ;DEFINE VALUE OF FALSE. 

FFFF = TRUE EQU NOT FALSE ;DEFINE VALUE OF TRUE. 


********* 

********* 


THIS IS THE AREA TO MAKE CHANCES IN 
FOR DIFFERENT SYSTEM CONFIGURATIONS 


00E0 

00E1 

00E8 

00F8 

00F8 

00F9 

00FA 

00FB 

00FC 

00FC 

00FD 

00FF 

0019 

1C00 

4500 

5A00 

0033 

000A 


******************* 
**★*★**********&&** 

** 
** 
** 
** 

** 
** 
** 

/ 


0018 = 

fclZE 

EQU 

24 

0000 = 

TARBELL EQU 

FALSE 

0000 = 

DUBSID 

EQU 

FALSE 

0000 = 

DELTA 

BQU 

FALSE 

0000 = 

DOUBDEN: 

:EQU 

FALSE 

0000 = 

DMACNTL 

EQU 

FALSE 

0000 = 

BASE 


0 

001A = 

SPT 

BQU 

26 

001A = 

DDS 

BQU 

26 

OOFS = 

DISK 

BQU 

0F8H 


;MEMORY SIZE IN DECIMAL KB. 

,-TRUE IF USING TARBELL CEU. 

;TRUE FOR DOUBLE SIDED SYSTEMS. 

,-TRUE IF USING DELTA CRJ CARD 
,-TRUE IF DCUB. DEN DISK. 

,-TRUE IF USING DMA CONTROL 
,-TARBELL I/O PORTS (OO or 10 HEX) 

,-NUMBER OF SECTORS PER TRACK. 

;sectors in trk 1 , (Range = 26 to 51) 
,-DISK PORT BASE ADDRESS. 


IO 

MMENB 

MEMMAG 


ADR0 

WCT0 

QtND 

DCOM 

DSTAT 

TRACK 

SECT 

DATA 

WAIT 

DCONT 

DMACHK 

PANEL 

SDS 

CBASE 

CPMB 

BOCTE 

NSECTS 

RTCNT 


IF TARBELL 
}U BASE 
" 10+10 
3U BASE+32 
ENDIF 

0E0H 
0E1H 
0E8H 
DISK 
DISK 
DISK+1 
DISK+2 
DISK+3 
DISK+4 
DISK+4 
DISK+5 
0FFH 

^MSIZE-17) * 


;i/o ports on tarbell cpu. 
jmemory management enable port. 
;memory management port. 


,-DMA ADDRESS PORT. 

,-DMA WORD COUNT PORT. 

,-DMA COMMAND PORT. 

,-COMMAND PORT. 

; STATUS PORT. 

,-TRACK PORT. 

,-SECTOR PORT. 

,-DATA PORT. 

,-WAIT PORT. 

; CONTROL PORT. 

,-DMA CHECK PORT. 

;front panel machines. 

^always 25 sectors to read in trk 1. 


CBASE+290OH;START OF CP/M. 

CBASE+3E0OH;COLD BOOT ENTRY POINT. 
SDS + DDS ,-SECTORS OF CP/M. 

10 ,* NUMBER OF RETRYS. 


0000 


ORG 0 


;START OF LOADER. 


« 

6ootj 


MLOOP: 


IF TARBELL ,-IF USING TARBELL CHJ 

OUT MMENB ,-ENABLE MEMORY MANAGEMENT. 

LXI D,1000H ;COUNT=16, DATA BYTE = 0 

MVI C,MEMMAG AND 0FFH 

MOV A,E ,-GET ADDRESS VALUE 

ORA C ,-MAKE I/O PORT VALUE 

STA MOUTfl ;MODIFY PORT ON THE FLY 


Page 001 








0000 

1E0A 

t 

MVI 

0002 

310001 

BLOOP: 

LXI 

0005 

210045 


LXI 

0008 

1633 


MVI 

000A 

0E02 


MVI 

oooc 

0604 

RNTRK: 

MVI 

000E 

CD2900 

RNSEC: 

CALL 

0011 

15 


DCR 

0012 

CA005A 


JZ 

0015 

0600 


MVI 

0017 

OC 


INR 

0018 

79 


MOV 

0019 

FE1B 

SECCMP: 

CPI 

001B 

DAO EX) 0 


JC 


001E 3E5B 
0020 D3F8 
0022 DBFC 


II 


0E01 

C30C00 


0029 79 
002A D3FA 
002C 3E88 
002E BO 
002F D3F8 


0031 DBFC 
0033 B7 
0034 F23E00 
0037 DBFB 
0039 77 
003A 23 
003B C33100 


MOV A,E 
CMA 

MOOT: OUT BASE 

INR E 
DCR D 
JNZ MLOOP 
ENDIF 

IF DELTA 
MVI A,1 
OUT 9 
ENDIF 


E.RTCNT 
SP.100H 
H,CPMB 
D f NSECTS 
C,2 

IflAD 

D 

BOOTE 

B,0 

A,C 

SPT+1 

RNSEC 


;GET INIT VALUE. 

;FLIP IT FOR RAM CN CHJ 
;PUT IT TO RAM ON CRJ 
;BUMP DATA VALUE 
;DECREASE COUNT 
;LOOP 16 TIMES. 


;IF USING DELTA CHJ. 

;GET A 1 IN REG A. 

; AND DISABLE CHJ ROM SLOT. 


;GET RETRY COUNT. 

;SET STACK POINTER. 

;CP?M STARTS HERE. 

;NUMBER OF SECTORS TO READ. 
;SECTOR NUMBER. 

;FOR HEAD LOAD. 

;READ FIRST SECTOR. 

;IF DONE, 

;GO TO CP/M. 

;FOR NO HEAD LOAD. 

;INCREMENT SECTOR COUNT. 
;DONE WITH 
;THIS TRACK? 

;IF NOT, READ NEXT SECTOR. 


IF 
MVI 
STA 
MVI 
OUT 
ENDIF 


DOUBDEN AND NOT DUBSID 

;number of sectors to read on trk 2. 
;modify sector compare value. 

;GET SET DOUBLE DENSITY CODE 
;SET LATCH FOR D.DENSITY 


A,DDS + 1 
SECCMP-ff 


A, 8 
WAIT 


IF NOT DUBSID 
MVI A,5BH 
OUT DCOM 
IN WAIT 
ENDIF 

IF DUBSID 
MVI A.40H 
OUT DCONT 
ENDIF 

MVI C,1 
JMP RNTRK 


READ: 


IF 

MVI 

OUT 

MVI 

OUT 

MVI 

OUT 

MOV 

OUT 

MOV 

OUT 


DMACNTL 

A.41H 

CMND 

A,7FH 

WCT0 

A.40H 

WCT0 

A,L 

ADR0 

A,H 

ADR0 


ENDIF 

MOV A,C 
OUT SECT 
MVI A,88H 
ORA B 
OUT DCOM 


;STEP COMMAND. 

• tqcjtp Tfp 

•WAIT UNTIL DONE. 


;IF DOUBLE SIDED SYSTEM. 
;SIDE SELECT COMMAND. 

;ISSUE IT. 


,* SECTOR NUMBER. 
;READ NEXT TRACK. 


;IF USING DMA CONTROL. 
;SET UP FOR CHAN 0 REQ. 

; COUNT FOR 128 BYTES 

;READ COMMAND 

;GET LOW ADDRESS BYTE 

;HIGH ADDRESS BYTE 


; SECTOR IN A. 

;SET SECTOR REGISTER. 
;COMMAND FOR READ. 
;GET HEAD LOAD BIT. 

;ISSUE COMMAND. 


RLOOP: 


IF 

IN 

ORA 

JP 

IN 

MOV 

INX 

JMP 


NOT DMACNTL;IF NOT USING DMA CONTROL. 


ENDIF 


WAIT 

A 

CHECK 

DATA 

M,A 

H 

RLOOP 


;WAIT FOR DRQ. 

;SET FLAGS. 

;JUMP IF DONE. 

;READ DATA. 

;PUT IN MEMORY. 

;INCREMENT POINTER. 
;LOOP UNTIL DONE. 


IF DMACNTL 
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FILE: 


FFFF 

0000 


0018 

0000 

0000 

0000 

0000 

FFFF 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0004 


0000 

0000 

0001 

0002 

0002 

0003 


2ABIOS24 PRN PAGE 001 

2ABI0SZ4. PRN 


4-11- Ft 

STB LD 


CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 
TARBELL ELBCTROHGS— 

2.X VERSION OF t 11-4-8(0 

Copyright (c) 1980 Tarbell Electronics 


; This bios module is the CPM V2.X Auto Select Bios. 

; This bios reads single or double density disk. 

; The Double density disk contains 51 sectors/track, 

; 77 tracks. Track 0 = single density. Tracks 1-76 
; are double density at 51 sectors per track. 

; Note: If you leave DMACNTL false, you must have a CPU 
; which runs at 4 MHz to run double density. 

; This bios new supports double sided single/double density. 
; THIS SECTION DEFINES THE I/O PORTS AND STATUS BITS. 

? BY SETTING THE PROPER VALUES FOR THE EQU STATEMENTS, 

; THE I/O MAY BE AUTOMATICALLY RECONFIGURED TO FIT MOST 
? SITUATIONS. TOE TRUE AND FALSE CNE3 CONTROL CONDITIONAL 
; ASSEMBLIES OF DIFFERENT SECTIONS OF I/O ROUTINES TO FIT 

; DIFFERENT INTERFACE REQUIREMENTS. 

• 

TRUE EQU 0FFFFH ;DEFINE VALUE OF TRUE. 

FALSE EQU NOT TRUE ;DEFINE VALUE OF FALSE. 

f 

• *************************************************** 

;*** THIS BEGINS TOE AREA WHICH REQUIRES CHANGES *** 



.*** 

f 

FOR DIFFEREIET CONSOLE I/O SYSTE34S *** 


• *************************************************** 

# 


MSIZE 

EQU 

24 

MEMORY SIZE IN KBYTES. 

= 

INTRP 

EQU 

FALSE 

TRUE IF INTERRUPTS ALLOWED. 

= 

TARBELL 

EQU 

FALSE 

TRUE IF USING TOE TARBELL Z-80 CPU. 

= 

IOBASE 

EQU 

0 

BASE IO ADDR FOR TARBELL CPU (0 or 10 hex). 

= 

TIMER 

EQU 

FALSE 

TRUE IF USING CPU TIMER (Tarbell CPU board). 

= 

STD 

EQU 

TRUE 

TRUE IF STANDARD I/O. 

= 

MS 102 

EQU 

FALSE 

TRUE IF MITS 2SIO. 

= 

VDB8024 

EQU 

FALSE 

TRUE IF USING VDB-8024 BOARD. 

= 

DELTA 

EQU 

FALSE 

TRUE IF USING DELTA PRODUCTS CPU. 

= 

IS 102 

EQU 

FALSE 

TRUE IF IMSAI SIO-2. 

= 

TUART 

EQU 

FALSE 

TRUE IF CRCMEMCO TUART. 

SS 

VIDEO 

EQU 

FALSE 

TRUE IF USING A MEMORY MAPPED VIDEO. 

= 

OTHER 

EQU 

FALSE 

TRUE IF SOMETHING ELSE. 

= 

SOL06 

EQU 

FALSE 

TRUE IF PROC TECH SOLOS. 

= 

DUBSID 

EQU 

FALSE 

TRUE FOR DOUBLE SIDED DRIVES (1 logical drive) 

= 

DMACNTL 

EQU 

FALSE 

TRUE IF USING DMA CONTROL. 

= 

NDISK 

EQU 

4 

DEFINES TOE NUMBER DRIVES IN SYSTEM. 


i 

IF 

VIDEO ; 

f IF USING A VIDEO BOARD 


OUTADDR 

EQU 

0 ; 

(PUT OUTPUT ADDRESS HERE 



ENDIF 



? 

IF NOT SOLOS AT® 

NOT TARDEL ;IF NOT PROC TECH SOLOS, 

= 

CSTAT 

EQU 

0 

(CONSOLE STATUS PORT. 

= 

CCOf'l 

EQU 

0 

(CONSOLE COMMAND PORT. 

= 

CDATA 

EQU 

1 

(CONSOLE DATA PORT. 

= 

LSTAT 

EQU 

2 

(LIST STATUS PORT. 

= 

LOOM 

EQU 

2 

(LIST COMMAND PORT. 

= 

LDATA 

EQU 

3 

(LIST DATA PORT. 


ENDIF 
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0000 

= 

CONUL 

EQU 

FALSE 

;CONSOLE NULLS? 

0010 

= 

CNULL 

EQU 

16 

;CONSOLE NULL COUNT. 

0000 

= 

LSTNUL 

EQU 

FALSE 

;LIST DEVICE NULLS? 

0000 

= 

LNULL 

EQU 

0 

;LIST NULL COUNT. 

0000 

= 

LSTPAG 

EQU 

FALSE 

;LIST DEVICE PAGING? 

0042 

= 

LINCNT 

EQU 

66 

;LINES PER PAGE. 

0000 

= 

HLAB 

EQU 

0 

;8 FOR HD LD AT BEG CF SEEK. 

0002 

= 

STPRAT 

EQU 

2 

;RATE 0=3ms,1=6MS, 2=10MS, 3=20MS. 

0000 

= 

DUAL 

EQU 

FALSE 

;TRUE IF DUAL HEADED (2 HEADS MOVING TOGETHER) 




’ 

******************************************************* 




;*** THIS IS 

THE END OF 

THE AREA WHICH NORMALLY NEED *** 




*** 

BE 

CHANGED FOR 

MOST CONSOLE I/O SYSTEMS *** 




»******************************************************* 

FFFF 

= 

1 

3DYLO 

EQU 

STD OR SCLOS OR OTHER ; STATUS READY WHEN LCW. 

0000 

= 

RDYHI 

EQU 

NOT RDYLO 


0000 

= 

TARDEL 

EQU 

TARBELL OR DELTA ;IF USING TARBELL OR DELTA CPU. 





IF 

TARDEL 

;IF USING TARBELL OR DELTA CPU 



CCOM 

EQU 

IOBASE+1 

;CONSOLE COMMAND PORT 



CSTAT 

EQU 

ICBASE+1 

;CONSOLE STATUS PORT ( CHAN A.) 



CDATA 

EQU 

XCBASE+0 

;CONSOLE DATA PORT 



LCQM 

EQU 

ICBASE+3 

;LIST COMMAND PORT 



LSTAT 

EQU 

IOBASE+3 

;LIST STATUS PORT (CHAN B.) 



LDATA 

EQU 

IOBASE+2 

;LIST DATA PORT 





ENDIF 




< 

1 

IF 

TIMER AND TARBELL jMUST BE USING TARBELL CPU. 


TIMER EQUATES 


Taio 

EQU 

IOBASE+4 

TXH1 

EQU 

IOBASE+5 

TCH2 

EQU 

IOBASE+6 

TCMND 

BQU 

IOBASE+7 

IMASK 

EQU 

IOBASE+8 

CNTR0 

EQU 

00000000B 

CNTR1 

EQU 

01000000B 

CNTR2 

EQU 

10000000B 

REWORD 

EQU 

00110000B 

RLHBYTE 

EQU 

00100000B 

RLLBYTE 

EQU 

00010000B 

CNTRLT 

EQU 

00000000B 

BINARY 

EQU 

00000000b 

BCD 

EQU 

00000001B 

MODEO 

EQU 

00000000B 

MCDE1 

EQU 

00000010B 

MCDE2 

EQU 

00000100B 

MODES 

EQU 

00000110B 

M0DE4 

EQU 

00001000B 

M0DE5 

EQU 

00001010B 

• 

ENDIF 

# 

IF 

SCLOS 

CSTAT 

EQU 

0FAH 

KBD 

EQU 

0C02EH 

CLRSCR 

EQU 

0C0D5H 

SCRN 

EQU 

0C054H 


ENDIF 

t 

IF NOT SCLOS 


;TIMER CHAN 0 ADDRESS 
; TIMER CHAN 1 ADDRESS 
;TIMER QIAN 2 ADDRESS 
; TIMER COMMAND PORT 
;INTERRUPT MASKING PORT 
; counter 0 
.•counter 1 
;counter 2 

;read/load lsb 1st, msb 2nd. 
;read/load msb only. 

;read/load lsb only. 

•counter latching operation. 
;select binary operation. 

?select BCD operation. 

;interrupt on terminal count 
programmable One-shot. 

;rate generator. 

;square wave rate generator. 
;software triggered strobe. 

;hardware triggered strobe. 


;IF PROC TECH SCLOS, 

;CONSOLE STATUS PORT. 
;SCLOS KEYBOARD. 

;CLEAR SCREEN. 

; SOLOS OUTPUT. 


;IF NOT PROC TECH SOLOS, 
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00E0 

= 

DfTAP 

EQU 

OEOH 

DMA BASE ADDRESS. 

00F8 

= 

DISK 

EQU 

0F8H 

DISK BASE ADDRESS. 




ENDIF 




7 

IF SOLOS 

IF PROC TECH SOLOS, 



DMAP 

EQU 

060H 

;DMA BASE ADDRESS. 



DISK 

EQU 

07 8H 

; DIFFERENT DISK PORTS. 




EtDIF 


00E0 

rr 

7 

ADRO 

EQU 

DMAP+0 

DMA ADDRESS REE PORT. 

00E1 

= 

WCTO 

EQU 

DMAP+1 

DMA WORD COUNT REE PORT 

00E8 

= 

CMND 

EQU 

DMAP+8 

DMA COMMAND PORT. 

00F8 

= 

DCOM 

EQU 

DISK 

DISK COMMAND PORT. 

OOFS 

= 

DSTAT 

EQU 

DISK 

DISK STATES PORT. 

00F9 

— 

TRACK 

EQU 

DISK+1 

DISK TRACK PORT. 

OOFA 

= 

5ECTP 

EQU 

DISK+2 

DISK SECTOR PORT. 

OOFB 

= 

DDATA 

EQU 

DISK+3 

DISK DATA PORT. 

OOFC 

= 

WAIT 

EQU 

DISK+4 

DISK WAIT PORT. 

OOFC 

= 

DCONT 

EQU 

DISK+4 

DISK CONTROL PORT. 

OOFD 

= 

DMACHK 

EQU 

DISK+5 

DMA CHECK PORT. 

OOOA 

= 

RTCNT 

EQU 

10 

RETRY COURT. 



7 

IF 

STD 

IF STANDARD I/O, 

0001 

= 

CKBR 

EQU 

00000001B 

KEYBOARD READY BIT. 

0080 

= 

CPTR 

EQU 

10000000B 

CONS OUTPUT RDY BIT. 




ETDIF 




7 

IF 

MS 102 

IF MITS 2SIO, 



CKBR 

EQU 

00000001B 

KEYBOARD READY BIT. 



CPTR 

EQU 

00000010B 

PRINT READY BIT. 




ENDIF 




7 

IF 

VDB8024 

;IF VDB-8024 BOARD. 



CKBR 

EQU 

00000010B 

;KEYBOARD READY BIT. 



CPTR. 

EQU 

00000100B 

rCOIES CUTPJT RDY BIT. 




END'IF 




7 

IF 

IS 102 




CKBR 

EQU 

00000010B 

i KEYBOARD READY BIT. 



CPTR 

EQU 

00000001B 

r PRINT READY BIT. 



• 

ENDIF 




9 

IF 

TARDEL 




CKBR 

EQU 

00000010B ; 

t KEYBOARD READY BIT. 



CPTR 

EQU 

00000001B 

rPRINT READY BIT. 




ENDIF 




7 

IF 

TUART 

;IF CRCMEMCO TUART, 



CKBR 

EQU 

01000000B 

rKEYBOARD READY BIT. 



CPTR 

EQU 

10000000B 

rPRINT READY BIT. 




ENDIF 




7 

IF 

SCLOS ; 

rIF PROC TECH SOLOS, 



CKBR 

EQU 

00000001B j 

rKEYBOARD READY BIT. 



CPTR 

EQU 

10000000B j 

: DUMMY EQU. 




ENDIF 




7 

IF 

OTHER 

rIF SOMETHING ELSE, 



CKBR 

EQU 

00000010B 

:KEYBOARD READY BIT. 



CPTR 

EQU 

10000000B 

!PRINTER READY BIT. 




endi; 

7 
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CALL 

CON IN 


;READ KEYBOARD. 




CALL CONIN 


;READ KEYBOARD AGAIN. 




CPI 

0DH 


; IF NOT CARRIAGE-RETURN, 




MVI 

A,1 


;SLCW THE CLOCK. 




JNZ 

IT1 


; UNTIL A CARRIAGE-RETURN. 




ENDIF 





t 

IF 

SOLOS 


;IF PROC TECH SOLOS, 




CALL CLRSCR 


; CL EAR SCREEN. 




ENDIF 





i 

IF DMACNTL 






LXI 

H,RWDMA 


; POINT TO DMA ROUTINE 




SHLD 

DMAENTM-1 


;MODIFY BOOT JMP ADDRESS. 




ENDIF 





t 

IF 

TIMER AND 

TARBELL 

;IF USING TARBELL CFU 




MVI 

A, GTTRO+RLWORD+MQDE2+BINARY ;INIT 8253 




OUT 

TCMND 


jSEND IT TO COMMAND PORT 




LXI 

B,33333 


;TIME CONSTANT FOR 60 HZ 




MGV 

A,C 






OUT 

TCH0 


;LS BYTE CF COUNT 




MOV 

A,B 






OUT 

TCH0 


;MS BYTE OF COUNT 




ENDIF 



443D 

C3C059 

7 

JMP 

BOOTF 


;FINISH BOOT 



t 

IF 

TARDEL OR 

ISI02 




IOINIT: 

DB 

0AAH,040H, 

r0CEH,037H 




ENDIF 





# 

IF 

TUART 


; IF CROMEMCO TUART, 



BAUDRS: 

DB 

94H,0CEH,0A2H,92H, 

88H,84H,82H,1 




ENDIF 



59C0 


f 

ORG 

BIOS-64 


;HIDE REST OF BOOT HERE. 

59C0 

AF 

BOOTF: 

XRA 

A 


;CLEAR SCRATCH AREA. 

59C1 

320300 


STA 

KBYTE 


;CLEAR I/O BYTE. 

59C4 

320400 


STA 

CDISK 


;SELECT DRIVE ZERO 

59C7 

0611 


MVI 

B, ENDZ-STARTZ 

;GET LENGTH OF ZERO AREA. 

59C9 

21195D 


LXI 

H,STARTZ 


;GET SCRATCH ADDRESS. 

59CC 

77 

BOCTL: 

MOV 

M,A 


;PUT ZERO IN MEMORY. 

59CD 

23 


INX 

H 


; INCREMENT POINTER. 

59CE 

05 


DCR 

B 


;DECREMENT COUNTER. 

59CF 

C2CC59 


JNZ 

BOOTH 


;LOOP TILL DONE. 

59D2 

DB01 


IN 

CDATA 


;CLEAR CONSOLE STATUS. 

59D4 

210844 


LXI 

H,SMSG 


;POINT TO SIGN CN. 

59D7 

7E 

PMSG: 

MCV 

A,M 


;GET A BYTE OF THE MESSAGE 

59D8 

23 


INX 

H 


;BUMP MEMORY POINTER. 

59D9 

B7 


ORA 

A 


;IS IT A ZERO? 

59DA 

CADF5A 


JZ 

GOCPM 


;YES, WE ARE DONE, JMP TO CFM 

59DD 

4F 


MOV 

C,A 


;NOPE, PRINT MORE MESSAGE. 

59DE 

CD1E5B 


CALL CONOT 


;USE THE OCNOT ROUTINE. 

59EI 

C3D759 


JMP 

PMSG 


;AND LOOP TILL DONE. 

5A00 


7 

ORG 

BIOS 


; START OF CBIOS STRUCTURE. 



; I/O JUMP VECTOR 




■mis IS WHERE cm CALLS WHENEVER IT NEEDS TO DO ANY INFUT/OUTRJT 
OPERATION. USER PROGRAMS MAY USE THESE ENTRY POINTS ALSO, EOT NOTE 
THAT THE LOCATION OF THIS VECTOR CHANGES WITH THE MEMORY SIZE. 
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5A00 

C33A44 

DMAENT: 

JMP 

BOOT 

;FROM SBOOT LOADER, CHANGED FOR DMA 

5AD3 

C3B15A 

WBOOTE: 

JMP 

WBOOT 

; FROM WARM BOOT. 

5A06 

C3065B 



JMP 

CONST 

;CHECK CONSOLE KB STATUS. 

5A09 

C3135B 



JMP 

CON IN 

;READ CONSOLE CHARACTER. 

5 ADC 

C31E5B 



JMP 

CONOT 

;WRITE CONSOLE CHARACTER. 

5A0F 

C30B5D 



JMP 

LIST 

;WRITE LISTING CHAR. 

5A12 

C3055D 



JMP 

PUNCH 

;WRITE PUNCH OTAR. 

5A15 

C3055D 



JMP 

READER 

;READ READER OTAR. 

5A18 

C3B65B 



JMP 

HOME 

;MOVE DISK TO TRACK ZERO. 

5A1B 

C3295B 



JMP 

SELDSK 

.•SELECT DISK DRIVE. 

5A1E 

C3BC5B 



JMP 

SETTRK 

.-SEEK TO TRACK IN REG A. 

5A21 

C32B5C 



JMP 

SETS EC 

.-SET SECTOR NUMBER. 

5A24 

C33B5C 



JMP 

SETDMA 

.-SET DISK STARTING ADR. 

5A27 

C35F5C 



JMP 

READ 

.-READ SELECTED SECTOR. 

5A2A 

C3D65C 



JMP 

WRITE 

;WRITE SELECTED SECTOR. 

5A2D 

C3FE5C 



JMP 

PRSTAT 

.•LIST STATUS CHECK. 

5A30 

C3305C 



JMP 

SECTRAN 

.•SECTOR TRANSLATE ROUTINE. 




THIS 

SECTION DEFINES THE THE 

DISK PARAMETERS 

5 A3 3 

rr 

I 

DEBASE 

EQU 

$ 

;BASE CF DISK PARAMETER BLOCK 

5 A3 3 

97 5AD000 

DPEO: 

DW 

XLTO,OOOOH 

; TRANSLATE TABLE 

5A37 

00000000 



EW 

0000H,0000H 

;SCRATCH AREA 

5A3B 

2A5D765A 



dw 

DIRBUF,SDTAB+3 

;DIR BUFF, PARM BLOCK 

5A3F 

C95DAA5D 



DW 

CSV0 ,ALV0 

.•CHECK, ALLOC VECTORS 

5A43 

975AOOOO 

t 

DPE1: 

DW 

XLT1,0000H 


5A47 

00000000 



DW 

0000H.0000H 


5A4B 

2A5D765A 



DW 

DIRBUF,DPB1 


5A4F 

005EE15D 



DW 

CSVWALVl 


5A53 

975A0000 

DPE2: 

DW 

XLT2.0000H 


5A57 

00000000 



DW 

0000H,0O00H 


5A5B 

2A5D765A 



DW 

DIRBUF,DPB2 


5A5F 

375E185E 



DW 

CSV2,ALV2 


5A63 

975A0000 

DPE3: 

DW 

XLT3,OOOOH 


5A67 

00000000 



DW 

0000H.0000H 


5A6B 

2A5D765A 



DW 

DIRBUF,DPB3 


5A6F 

6E5E4F5E 



DW 

CSV3,ALV3 





•THE FOLLOWING DESCRIBES THE DISK PHYSICAL NATURE. SUCH AS 




•SECTORS/TRACK,DIRECTORY SIZE, 

ETC... 




•THE FOLLOWING TABLE DEFINES A SINGLE DENSITY DRIVE. 

5A73 

ss 


aDTAB: 

EQU 

$ 

.•ONE CF 4 DISK PARM. BLOCKS 

5A73 

00 



DB 

00H 

;LOG BYTE SINGLE DENSITY 

5A74 

97 5A 



DW 

XL TO 

,-USE SINGLE DENSITY TRANSLATE TAB. 

5A76 

1A00 



DW 

26 

; SECTORS/TRACK 

5A78 

03 



DB 

3 

;BLOCK SHIFT 

5A79 

07 



DB 

7 

.•BLOCK MASK 

5A7A 

00 



DB 

0 

;EXTNT MASK 

5A7B 

F200 



DW 

242 

;DISK SIZE - 1 

5A7D 

3F00 



DW 

63 

;DIRECTORY MAX. 

5A7F 

CO 



DB 

192 

,-ALLOCO 

5A80 

00 



DB 

0 

;ALLOCl 

5A81 

1000 



DW 

16 

.•CHECK SIZE 

5A83 

0200 



DW 

2 

;NUMBER OF SYSTEM TRACKS 





IF 

DUBSID 

;is using double sided drives. 
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; Defines a Single density/ Double sided disk 
? 

DB 02H ;log byte doub sided 

EX'/ XLTO 

DW 26 

DB 4 

DB 15 

DB 0 

EX'/ 242 

DW 95 ;allow 95 entrys for dir. 

DB 192 

DB 0 

DW 24 

DW 2 

ENDIF 


THE FOLLOWING TABLE DEFINES A DOUBLE DENSITY DRIVE. 


5A85 

01 DDTAB 

: DB 

01H 

;log byte doub den/sing sided 

5A86 

0000 


EX', 7 

0 

;NO SECTOR TRANSLATE TABLE. 

5A88 

3300 


DW 

51 

;51 SECTORS. 

5A8A 

04 


IB 

4 

;BLOCK SHIFT. 

5A83 

OF 


DB 

15 

;BLOCK MASK. 

5A8C 

00 


DB 

0 

;EXTENT MASK. 

5A8D 

ED00 


DW 

237 

;DISK SIZE -1 

5A8F 

5F0O 


EX'/ 

95 

;DIRECTORY MAX. 

5A91 

CO 


DB 

192 

;ALLOC0 

5A92 

00 


DB 

0 

;ALLOC1 

5A93 

1800 


DW 

24 

;CHECK SIZE 

5A95 

0200 


EX-7 

2 

;NUMBER OF SYSTEM TRACKS. 


- 


IF 

DUBSID 

;if using double sided drives 



Defines a 

Double density/Doub sided drive 




DB 

03H 

;log byte and dub sided 




DW 

0 





DW 

51 





DB 

5 





DB 

31 





DB 

0 





DW 

237 





DW 

95 





DB 

192 





DB 

0 





DW 

24 





DW 

2 





ENDIF 




•SECTOR TRANSLATION TABLE 


5A97 

— -X 

— 4 

CLT0 

EQU 

$ 

?START OF TRANS. TABLE 

5A97 

0107QD1319 


DB 

1,7,13,19,25 


5A9C 

050B111703 


DB 

5,11,17,23,3 


5AA1 

090F150208 


DB 

9,15,21,2,8 


5AA6 

0E141A060C 


DB 

14,20,26,6,12 


5AAB 

1218040A10 


DB 

18,24,4,10,16,22 


5A76 

= DFB1 

BQU 

SDTAB+3 

; EQUIVALENT PARAMETERS 

5A97 

= XLH 

EQU 

XLTO 

;SAME TRANSLATE TABLE 

5A76 

= DPB2 

EQU 

SDTAB+3 
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MOV D, A 
DAD D 
POP D 


;NCW SET FOR H,L ADJUST. 
;ADD IT TO H,L. 

;RESTORE D, E 


5AB1 318000 


5AB4 0E00 
5AB6 CD295B 
5AB9 CDB65B 
5ABC 210000 
5ABF 22215D 
5AC2 22235D 
5AC5 0611 
5AC7 0E02 


5AC9 210044 
5ACC 22175D 
5ACF CD2B5C 
5AD2 C5 
5AD3 CD5F5C 
5AD6 Cl 
5AD7 C2005B 
5ADA 0C 
5ADB 05 
5ADC C2CC5A 


GENERAL PURPOSE WAIT ROUTINE. 


MV I A, 2 OH 
CNTLOOP:DCR A 

JNZ CNTLOOP 
SLOOP: IN DMACHK 
RLC 

JC SLOOP 
IN DSTAT 
RET 
ENDIF 

• 

9 

;Warm-boot - Read the CCP back into memory. BDOS and BIOS 
;assumed still in memory. If they are not, a cold start will 
;have to be done to bring them back into memory. 

WBOCT: LXI SP,80H ;SET STACK POINTER. 


; COUNT VALUE. 

;LOOP TILL = ZERO. 

;CHECK FOR OPERATION DONE. 

;BY LOCKING AT BIT 7. 

;LOOP TILL BIT 7 =0. 

;CHECK AND RETURN DISK STATUS 
; RETURN TO CALLER. 


IF INTRP AND NOT DMACMTL; IF INTERRUPTS ALLOWED, 
El ;ALLOW THEM HERE. 

ENDIF 


IF LSTPAG ;IF LIST DEVICE PAGING, 

XRA A ; RESET LINE-FEED COUNT. 

STA LFCNT 
EM)IF 


MVI C,0 
CALL SELDSK 
CALL HOME 
LXI H,0 
SHLD DRVFLG 
SHLD DRVFLG+2 
MVI B,NSECTS 
MVI C,2 


;SELECT DISK 0. 

;MOVE TO TRACK ZERO. 

;clear h,1 
;clear drive flags 

;GET # SECTORS FOR CPM READ. 
;TRACK (B)=0, SECTOR (C)=2. 


IF INTRP AND NOT DMACNTL?IF INTERRUPTS ALLOWED, 
DI ;DISABLE THEM HERE. 

ENDIF 


LXI H,CPMB 
RBLK1: SHLD DMAADD 
CALL SETSEC 
PUSH B 
CALL READ 
POP B 
JNZ RDERR 
INR C 
DCR B 
JNZ RBLK1 


;GET STARTING ADDRESS. 

;SET STARTING ADDRESS. 

;READ STARTING AT SECTOR IN C 

;READ A SECTOR BACK. 

;IF ERROR, PRINT MESSAGE. 

; INCREMENT SECTOR NUMBER. 

; DECREMENT SECTOR COUNT. 

;NOT ZERO, KEEP READING 


IF INTRP AND NOT DMACNTL;IF INTERRUPTS ALLOWED, 
El ; ALLOW THEM AGAIN HERE. 
ENDIF 


SET UP JUMPS INTO CP/M IN LOWER MEMORY. 


5ADF 3EC3 


;put jmp to mo or 


GOCPM: MVI A,0C3H 
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5A97 = 

XLT2 

BQU 

XL TO 

5A76 = 

DPB3 

BQU 

SDTAB+3 

5A97 = 

XLT3 

BQU 

XL TO 


DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 
READ AND WRITE ROUTINES FOR DMA OPERATION. THIS ROUTINE 
MAY BE USED STAND ALONE BY PASSING PARAMETERS TO IT AND 
JUMPING TO WBOOT-3 HEX. THIS JUMP VECTOR IS CHANGED WHEN 
CP/M IS BOOTED UP. 

ENTERY POINT = Hi/DMA: 

USER MUST SET UP DMAADD FOR MEMORY ADDRESS AND 
USER MUST SET UP DISK SECTOR WITH 'SETSEC' ENTRY 
THE TRACK TO READ OR WRITE MUST BE SET UP USING 'SETTRK' ' 
BEFORE USING FWDMA ROUTINE EXTERNALLY. 

ENTRY PARAMETERS: 

B = FLOPPY DISK (1793) READA®ITE COMMAND BYTE 

C = FLOPPY DISK (1793) FORCE INTERRUPT COMMAND BYTE 

D = DMA (8257) READ/WRITE COMMAND + HIGH BYTE COUNT 

E = DMA (8257) LOW BYTE COUNT (80 HEX = 128 BYTES) 

EXIT VALUES 

B,C = FLOPPY COMMANDS 

D,E = DMA COMMAND + BYTE COUNT. 

H,L = (H,L + D, E) 

A = FLOPPY DISK STATUS BYTE 


;STACK 

USAGE 

IS 1 LEVEL DEEP. 

t 

IF DMACNTL 

; IF USING DMA CONTROL 

DMARW: 

STA 

ERCNT 

;SAVE ERROR COUNT. 

RWDMA: 

LDA 

SECT 

;GET SECTOR TO READ/WRITE 


OUT 

SECTP 

;AND SEND IT FLOPPY CHIP. 


LHLD 

EMAADD 

;GET CPM DMA ADDRESS. 

DMARWE 

XRA 

A 

;CLEAR ACCUM. 


OUT 

a#® 

;RESET DMA CHIP. 


MOV 

A,C 

; FORCE INTERRUPT COMMAND BYTE 


OUT 

DCOM 

;SEND IT TO CONTROLLER. 


MOV 

A,E 

;BYTE COUNT TO TRANSFER 


DCR 

A 

; COUNT = COUNT - 1. 


OUT 

WCTO 

;SEND IT TO DMA CHIP. 


MOV 

A f D 

;GET READ/WRITE CODE. 


OUT 

WCTO 

;AND TELL DMA CHIP WHAT TO DO. 


MOV 

A r L 

;GET LOW ADDRESS BYTE 


OUT 

ADRO 

;AND SEND IT TO DMA CHIP. 


MCV 

A, H 

;GET HIGH ADDRESS BYTE 


OUT 

ADRO 

;AND SEND IT TO DMA CHIP. 


MVI 

A,41H 

;SET UP FOR REQUEST CH. 0 


OUT 

CMND 

jSEND IT TO CONTROLLER. 

/ 

CALL HDLD 

; CHECK HEAD LOAD BIT. 


ORA 

B 

; 'OR' IN THE READ/WRITE BITS. 


OUT 

DCOM 

;TELL FLOPPY CHIP WHAT TO DO. 

;ADJUST H,L FOR 128 BYTE 

INCREASE. 

# 

PUSH 

D 

;SAVE D,E 


MOV 

A f D 

;GET DMA COMMAND BYTE 


ANI 

3FH 

?STRIP OFF COMMAND BITS 7 & 6 
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5AE1 

320000 



STA 0 

;ADR AT ZERO. 

5AE4 

21035A 



LXI H,WBOOTE 

;WARMBOOT ENTRY POINT 

5AE7 

220100 



SHLD 1 

;SET IT. 

5AEA 

320500 



STA 5 

;SET JUMP INSTRUCTION. 

5AED 

21064C 



LXI H,BDOS 

;PUT JUMP TO BDOS 

5AF0 

220600 



SHLD 6 

;AT ADR 5,6,7. 

5AF3 

218000 



LXI H,80H 

;SET DEFAULT DMA ADR. 

5AF6 

2217 5D 



SHLD DMAADD 

;SAVE IT. 

5AF9 

3AO400 



IDA CDISK 

;GET DISK NUMBER TO 

5AFC 

4F 



MW C,A 

;PASS TO CCP IN C. 

5AFD 

C30044 



JMP CPMB 

;JUMP TO CCP. 

5B00 

CD875C 

MDERR: 

CALL RECW 

;We have an error in booting 

5B03 

C3B15A 



JMP WBOOT 

;DO A WARM BOOT. 



7 

9 

CHECK 

CCNSCLE INPUT STATUS. 


5B06 

CD0E5B 

CONST: 

CALL STATCON 

;CHECK CCNSCLE STATUS PORT. 

5B09 

3E00 

C0NST1: 

MVI A, 0 

;SET A=0 FOR RETURN. 



9 


IF RDYLO 

;IF STATUS READY LCW, 

5B0B 

CO 



RNZ 

ENDIF 

;NOT READY WHEN NOT 0. 



9 


IF RDYHI 

;IF STATUS READY HIGH, 





RZ 

;NOT READY WHEN ZERO. 





ENDIF 


5B0C 

2F 

9 


CMA 

;IF READY A=FF. 

5 BOD 

C9 



RET 

;RETURN FRGM CONST. 



9 

• 

9 

STATCON - G1ECK KEYBOARD STATUS 



9 


IF NOT SCLOS 


5B0E 

DBOO 

STATCON 

:IN CSTAT 

;IN STATUS PORT 

5B10 

B601 



ANI CKBR 

;MASK READY BIT. 

5B12 

C9 



RET 

ENDIF 




7 

• 

9 

READ A CHARACTER FROM CONSOLE. 




CONIN: 







IF NOT SCLCS 

;IF NOT FROC TECH SCLOS, 

5B13 

CDOESB 



CALL STATCOSI 

ENDIF 

;READ CCNSCLE STATUS. 



7 


IF SCLQS 

;IF PROC TECH SCLOS, 





CALL KBD 

;READ SCL KEYBOARD. 





JZ CONIN 

;READY WHEN NOT ZERO. 





ENDIF 




7 


IF RDYLO AID NOT SCLOS 

5B16 

C2135B 



JNZ CONIN 

ENDIF 

;LOOP UNTIL LCW. 



7 


IF RDYHI 

;IF READY WHEN HIGH, 





JZ CONIN 

;LOOP UNTIL HIGH. 





ENDIF 




7 


IF NOT SCLOS 

;IF NOT PROC TECH SOLOS, 

5B19 

DB01 



IN CDATA 

ENDIF 

;READ A CHARACTER. 
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5BIB B67F 
5BID C9 


ANI 7FH ;MAKE MOST SIG. BIT = 0. 

RET ; RETURN FROM CON IN. 


WRITE A CHARACTER TO THE CONSOLE DEVICE. 


5B1E DB00 
5B20 E680 


5B22 C21E5B 


5B25 79 
5B26 D301 
5B28 C9 


CONOT: 


CONOT1: 


t 


IF CCNUL 
MVI A,0AH 
CMP C 
JZ CONULL 
ENDIF 


;IF NULLS REQUIRED, 
;IF IT'S A LF, 

;THEN HOP OUT 
;TO NULL ROUTINE. 


IF NOT SOLOS AND NOT VIDEO 

IN CSTAT ;READ CONSOLE STATUS. 

ANI CPTR ;IF NOT READY, 

ENDIF 


IF RDYLO AND NOT SOLOS AND NOT VIDEO 
JNZ CONOT1 ;LOOP UNTIL LOW. 

ENDIF 


IF RDYHI ;IF READY WHEN HIGH, 

JZ CONOT1 ;LOOP UNTIL HIGH. 

ENDIF 


IF NOT SOLOS AND NOT VIDEO 

rW A,C ;GET CHARACTER. 

OUT CDATA ; PRINT IT. 

RET ; RETURN. 

ENDIF 


THIS ROUTINE CALLES YOUR VIDEO DRIVER ROUTINE WHICH MUST 
BE IN ROM. ALL REGISTERS MUST BE SAVED AND RESTORED BY YOUR 
VIDEO DRIVER IN ORDER TO BE COMPATIABLE WITH CPM. CPM PASSES 
THE CHAR. TO BE CUTFUT IN THE C REGISTER. MAKE ANY CHANGES 
IN THIS ROUTINE TO PASS THE CHAR FROM REG C TO THE REGISTER 
YOUR VIDEO DRIVER EXPECTS IT TO BE IN. 



CONULL: 

CONULl: 


# 


IF VIDEO 

;IF USING A VIDEO DRIVER IN ROM 

MOV A,C 

;GET THE CPM CHAR INTO REG A 

CALL CUTADDR 

;CALL YOUR VIDEO DRIVER. 

RET 

ENDIF 

; RETURN TO CPM. 

IF CCMJL 

PUSH B 

;SAVE B&C. 

MVI B,CNULL+1 

;GET NULL COUNT. 

CALL CONOT1 

;PRINT CR. 

MVI C,0 

;GET NULL CHAR. 

DCR B 

;DECREMENT COUNTER. 

JNZ CONULl 

;DO NEXT NULL. 

POP B 

;RESTORE B&C. 

MOV A,C 

,‘RESTORE A. 

RET 

ENDIF 

;RETURN. 

IF SOLOS 

;IF PROC TECH SOLOS, 

PUSH B 

;SAVE B&C. 

MOV B,C 

;PUT CHAR IN B REG. 

CALL SCRN 

; OUTPUT CHAR TO SCLOS. 

POP B 

;RESTORE B&C. 
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MW A,C 

;PUT Q5AR IN A. 

RET 

; RETURN FROM CCNOT. 

ENDIF 



SELECT DISK NUMBER ACCORDING TO REGISTER C. 


5B29 

210000 

SELDSK 

: LXI 

H,0 

;SET UP FOR ERROR CODE 

5B2C 

79 


MW 

A,C 

;GET NEW DRIVE. 

5B2D 

FE04 


CPI 

NDISK 

;CALLING UNDEFINED DRIVE ? 

5B2F 

DO 


RNC 


;IF NO CY, H,L TELLS CPM YES 

5B30 

21195D 


LXI 

H,DISKNO 

;GET OLD DRIVE NUMBER. 

5B33 

7E 


MW 

A,M 

;GET CLD DISK NUMBER. 



t 

IF 

DUAL 

;IF DUAL DRIVE, 




ANI 

0FEH 

;CLEAR CUT BIT 0. 




ENDIF 


5B34 

5F 

t 

MW 

E r A 

;PUT CLD DISK NO. IN D&E. 

5B35 

1600 


mi 

D/0 


5B37 

211D5D 


LXI 

H, TRTAB 

;GET ADDRESS OF TRACK TABLE. 

5B3A 

E5 


R1SH 

H 

;SAVE ADDRESS CF TRTAB. 

5B3B 

19 


DAD 

D 

;ADD DISK NO. TO ADDRESS. 

5B3C 

DBF 9 


IN 

TRACK 

;READ 1771 TRACK REGISTER. 

5B3E 

77 


MW 

M,A 

;PUT INTO TABLE. 

5B3F 

79 


MW 

A,C 

;GET NEW DISK NUMBER. 



i 

IF 

DUAL 

;IF A DUAL DRIVE, 




ANI 

0FEH 

;CLEAR BIT 0. 




ENDIF 


5B40 

5F 

t 

MW 

E,A 

;FUT NEW DISK NO. IN D&E. 

5B41 

El 


POP 

H 

.•RESTORE ADDRESS CF TRTAB. 

5B42 

19 


DAD 

D 

;ADD DISK NO. TO ADDRESS. 

5B43 

7E 


MW 

A,M 

;GET NEW TRACK NUMBER. 

5B44 

D3F9 


OUT 

TRACK 

;PUT INTO 1771 TRACK REG. 

5B46 

79 


MW 

A/C 

?UPDATE OLD DISK NUMBER. 

5B47 

32195D 


STA 

DISKNO 


5B4A 

87 


ADD 

A 

;RJT BITS 1&2 AT 4&5. 

5B4B 

87 


ADD 

A 


5B4C 

87 


ADD 

A 


5B4D 

87 


ADD 

A 


5B4E 

32285D 


STA 

LATCH 

;SAVE NEW LATCH CODE. 

5B51 

21215D 

DENSITY :LXI 

H/DKVFLG 

,-POINT TO DRIVE DEN. FLAG 

5B54 

0600 


mi 

B/0 

;CLEAR REG B. 

5B56 

09 


DAD 

B 

;INDEX INTO DRIVE FLAG LOC. 

5B57 

7E 


MW 

A,M 

;GET THE FLAG BYTE 

5B58 

B7 


ORA 

A 

/•LOGGED IN? 

5B59 

FA825B 


JM 

LOG ED 

,-YES, IT'S LOGGED. 

5B5C 

E5 


FUSE 

H 

;NO, SAVE FLAG ADDRESS. 

5B5D 

3A285D 


LDA 

LATCH 

;GET LATCH CODE 

5B60 

D3FC 


OUT 

DCONT 

; CHANGE LATCH OR DENSITY 



;READ 

TRACK 

0 SECTOR 1 

FOR DENSITY BYTE AT 7E HEX. 

5B62 

3EJ01 

i 

MVI 

A/1 

/•SECTOR 1. 

5B64 

32165D 


STA 

SECT 

;SAVE THE SECTOR VALUE. 

5B67 

CDB65B 


CALL HOME 

;HOME THE DRIVE. 

5B6A 

2A175D 


LHLD DMAADD 

;GET CP/M DMA ADDRESS VALUE 

5B6D 

E5 


PUSH 

H 

,-SAVE IT ON THE STACK. 

5B6E 

21865E 


LXI 

H/DBLJFF 

.•POINT TO THE DMA BUFFER. 

5B71 

2217 5D 


SHLD DMAADD 

;SET UP READ DMA ADDRESS. 
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;READ THE DATA USING READ ROUTINE. 

5B74 CD5F5C ’ CALL READ ;CBIOS READ ROUTINE. 


;GET DENSITY BYTE VALUE AND 


5B77 

El 


POP 

H 

5B78 

2217 5D 


SHLD 

DMAADD 

5B7B 

El 


POP 

FI 

5B7C 

3A045F 


LDA 

DBUFF+7 EH 

5B7F 

F680 


ORI 

80H 

5B81 

77 


MOV 

M, A 

5B82 

011200 

LOGED: 

LXI 

B,18 

5B85 

E612 


ANI 

12H 

5B87 

B7 


ORA 

A 

5B88 

21735A 


LXI 

H,SDTAB 

5B8B 

CA8F5B 


JZ 

DENSIT1 



f 

IF 

DUBSID 




DAD 

B 




CPI 

2 




JZ 

DENSIT1 




DAD 

B 




CPI 

10H 




JZ 

DENSIT1 




ENDIF 

5B8E 

09 

t 

DAD 

B 

5B8F 

EB 

DENSITL 

:XCHG 


5B90 

1A 


LDAX 

D 

5B91 

13 


INX 

D 

5B92 

32255D 


STA 

DENS 

5B95 

D5 


PUSH 

D 

5B96 

CDA95B 


CALL 

PARINDX 

5B99 

D1 


POP 

D 

5B9A 010802 


LXI 

B, 0208H 

5B9D 

1A 

rCVE: 

LDAX 

D 

5B9E 77 


MOV 

M f A 

5B9F 

13 


INX 

D 

5 BAD 

23 


INX 

H 

5RA1 

05 


DCR 

B 

5BA2 

C29D5B 


JNZ 

MOVE 

5BA5 

09 


DAD 

B 

5BA6 

73 


MOV 

M,E 

5BA7 

23 


INX 

H 

5BA8 

72 


MOV 

M f D 



♦SELECT 

DRIVE AS A FUNCTION 

5BA9 

2A195D 

PARINDX 

:LHLD DISKNO 

5BAC 

11335A 


LXI 

D,DPBASE 

5BAF 

29 


DAD 

H 

5BB0 

29 


DAD 

H 

5BB1 

29 


DAD 

H 

5BB2 

29 


DAD 

H 

5BB3 

19 


DAD 

D 

5BB4 

AF 


XRA 

A 

5BBS 

C9 


RET 




; MOVE 

DISK 

TO TRACK ZERO. 

5BB6 

0E00 

HOME: 

MVI 

C,0 


DETERMINE DRIVE STATUS. 

;RESTORE DMA ADDRESS FROM THE STACK. 

; AND RESTORE TOE CP/M DMA ADDRESS. 

;RESTORE DENSITY FL/C ADDRESS. 

;INDEX INTO DBUFF TO LOCATION DBUFF+7 E. 
;set logged in bit 
;place it in flag table. 

;index value through drive table. 

;MASK DENSITY AND SIDE BITS OUT. 

;SINGLE DENSITY? 

;point to start of tables 
;yes f overlay paran. block 


;no, add offset to next table 
;single den doub sided? 

?yes 

;no 

;doub den single sided? 

;yes 

;no, must be doub den , doub sided 
;drive table pointer —> d r e 
;get log and drive type byte. 

;bump pointer 

;set current drive density. 

;save drive table pointer. 

;compute parameter overlay area. 

;restore drive table pointer. 

;B = 2, C = 8 (count values). 

;GET XL TO BYTE. 

;AND FUT IT INTO DW TABLE FOR DRIVE. 
;BUMP 

; POINTERS 
; DECREASE COUNT. 

; AND LOOP TILL ZERO. 

;N07 ADD INDEX INTO DPBO AREA. 

;GET LCW POINTER BYTE. 

;BUMP POINTER. 

;GET HIGH POINTER BYTE. 

OF H r L 

;LQAD DISK NUMBER AND ZERO BYTE 
; POINT TO DISK PARM START. 

;*2 
t* 4 
;*8 
;*16 

; COMPUTE INDEX FOR TOE DRIVE 
;SET A = 0. 

;RETURN FROM SELDSK. 


;SEEK TO TRACK ZERO. 
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5BB8 3Eu2 MV I A, STPRAT ; RESTORE COMMAND 

5BBA D3F8 CUT DCOM ;TELL CONTROLLER. 

• SET TRACK NUMBER TO WHATEVER IS IN REGISTER C. 

; ALSO PERFORM MOVE TO THE CORRECT TRACK (SEEK) . 


SETTRK: 


5 BBC 

2A285D 

LHLD 

LATCH 

5BBF 

1C 

MCV 

A,H 

5BC0 

E6B7 

ANI 

0B7H 

5BC2 

67 

MOV 

H, A 



i 

IF 

DUBSID 



IDA 

DENS 



RRC 




RRC 




JNC 

NOISID 



MCV 

A,C 



RRC 




MCV 

B, A 



MCV 

A,L 



JC 

SIDE2 



ANI 

OBFH 



JMP 

SETLAT 



SIDE2: ORI 

40 H 



SETLAT: STA 

CLATCH 



ANI 

OBFH 



CALL 

CLDLAT 



MOV 

A,B 



ANI 

7FH 



MCV 

C, A 



JMP 

TRKSET 



ENDIF 

• 



t 

IF 

NOT DUBSID 

5BC3 

C3D15B 

JMP 

NOTSID 



ENDIF 

5BC6 

BC 

OLDLAT: CMP 

H 

5BC7 

3EFF 

MVI 

A,0FFH 

5BC9 

C2CD5B 

JNZ 

SFLA3 

5BCC 

2F 

CMA 


5 BCD 

321B5D 

SFLA3: STA 

HLSF 

5BD0 

C9 

RET 


5BD1 

7D 

NOTSID: MCV 

A,L 

5BD2 

32295D 

STA 

CLATCH 

5BD5 

CDC65B 

CALL 

CLDLAT 

5BD8 

3A255D 

TRKSET: LDA 

DENS 

5BDB 

OF 

RRC 


5BDC 

D2ED5B 

JNC 

TRKSD 

5BDF 

79 

MCV 

A,C 

5BE0 

FE01 

CPI 

1 

5BE2 

DAED5B 

JC 

TRKSD 

5BE5 

3A295D 

LDA 

CLATCH 

5BE8 

F608 

ORI 

8 

5BEA 

C3F25B 

JMP 

TRKED 

5BED 

3A295D 

TRKSD: LDA 

CLATCH 

5BF0 

E6F7 

ANI 

0F7H 

5BF2 

32295D 

TRKDD: STA 

CLATCH 


;get new and old latch. 

;get latch value. 

;strip density and side bits. 

;restore it. 

;if using double sided drive. 

;check if double sided. 

;look at bit 1. 

;if bit 1 = 0, it's single sided. 

;it's doub sided, so get track number. 
;divide by 2. 

;save it in reg b. 

;get old latch value. 

;change side if odd track. 

;clear side bit from latch. 

;go set the latch. 

;turn on side select bit. 

;save it for later. 

;clear side bit. 

;check for drive change. 

;restore doub sided trk number. 

;clear bit 7. 

;trk number now in reg c. 

;check for density of track going to. 


;if not using double sided drive 
;jump around subroutine. 


;new = old? 

;if not, set = ff 

;new = old, set =0. 

;save head load select flag. 


get latch value, 
save it 

check for drive change. 

CHECK DRIVE DENSITY FLAG. 

IS BIT 0 = 0? 

YES, WE ARE SINGLE DENSITY. 

NO, RESTORE TRACK NUMBER. 

IS IT TRACK 1? 

IF LESS THAN, SETT SINGLE DENSITY. 
GET CURRENT LATCH VALUE. 

SET FOR DOUBLE DENSITY. 


;GET CURRENT LATCH VALUE. 

;TURN OFF BIT 4 (SINGLE DENSITY) . 
;SAVE NEW LATCH VALUE. 
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5BF5 D3FC 

OUT DCONT 

SELECT 1 DISK AND MAKE DENSITY CHANGE. 

5BF7 79 

MCV A,C 

RESTORE TRACK VALUE 

5BF8 32155D 

STA IRK 

UPDATE CLD WITH NEW. 

i 

7 

MOVE THE HEAD TO THE TRACK IN REGISTER A. 

1 

5BFB C5 £ 

SEEK: PUSH B 

SAVE B&C. 

5BFC 47 

MCV B,A 

SAVE DESTINATION TRACK. 

5BFD 3E0A 

MVI A,RTCNT 

GET RETRY COUNT. 

5BFF 32275D SRETRY: STA SERCNT j 

STORE IN ERROR COUNTER. 

5C02 DBF9 

IN TRACK 

READ PRESENT TRACK NO. 

5C04 B8 

CMP B 

SAME AS NEW TRACK NO.? 

5C05 C20A5C 

JNZ NOTHR 

JUMP IF NOT THERE. 

5C08 Cl THERE: POP B ; 

RESTORE B&C. 

5C09 C9 

RET 

RETURN FRCM SEEK. 

5C0A 78 NOTHR: MV A,B ; 

RESTORE A FROM B. 

5C0B D3FB 

OUT DDATA ; 

TRACK TO DATA REGISTER. 

5C0D 3E16 

MVI A,14BfSTPRATfHLAB ; 

GET STEP RATE, DO 

5C0F D3F8 

OUT DCOM 

SEEK WITH VERIFY. 

7 

IF NOT DMACNTL 


5C11 DBFC 

IN WAIT 

•WAIT FOR INIRQ. 

5C13 DBF8 

IN DSTAT 

rREAD STATUS. 


ENDIF 


i 

IF DMACNTL 



CALL SLOOP 

;NO WAIT STATUS CHECK. 


ENDIF 


5C15 E691 

ANI 91H 

;LOQK AT BITS. 

5C17 CA085C 

JZ THERE 

;OK IF ZERO. 

5C1A 3A275D 

LDA SERCNT 

;GET ERROR COUNT. 

5C1D 3D 

DCR A 

; DECREMENT COUNT. 

5C1E C2FF5B 

JNZ SRETRY 

RETRY SEEK. 

5C21 Cl 

POP B 

RESTORE B&C. 

5C22 C5 

PUSH B 

;SAVE 

5C23 CD875C 

CALL RECOV 

;IF SEEK RETRY = 10 CHECK 

5C26 Cl 

POP B 


5C27 79 

MOV A,C 

;RECOVER TRACK NUMBER. 

5C28 C3FB5B 

JMP SEEK 

; FOR CNTL-C FOR ABORT. 


SET DISK SECTOR NUMBER. 


5C2B 79 

SETS EC: MOV A r C 

;GET SECTOR NUMBER. 

5C2C 32165D 

STA SECT 

;PUT AT SECT # ADDRESS. 

5C2F C9 

RET 

;RETURN FRCM SETSEC. 


•TRANSLATE THE SECTOR GIVEN B,C USING 


;THE TRANSLATE TABLE;GIVEN BY D, 

E 


3ECTRAN: 


5C30 69 

MCV L,C 

GET PHYSICAL SECTOR NUMBER 

5C31 2C 

INR L 

BUMP IT BY ONE. 

5C32 7A 

MV A,D 

ARE WE USING NO XLAT TABLE? 

5C33 B3 

ORA E 

IT WILL BE ZERO IF NOT. 

5C34 C8 

RZ 

RETURN IF IT IS ZERO. 

5C35 EB 

XCHG 

H,L = TRANS 

5C36 09 

DAD B 

H,L = TRANS (SECTOR) 

5C37 6E 

MOV L,M 

L = TRANS (SECTOR) 

5C38 2600 

MVI H,0 

CLEAR REG H 

5C3A C9 

RET 

H,L = TRANSLATED SECTOR 
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; SET DISK DMA ADDRESS. 


5C3B 

60 SETDMA: 

MW 

H,B 

;MWE B&C TO H&L. 

5C3C 

69 


MW 

L,C 


5C3D 

2217 5D 


SHLD 

DMAADD 

;PUT AT DMA ADR ADDRESS. 

5C40 

C9 


RET 


; RETURN FROM SETDMA. 



HDLD • 

- GET 

HEAD-LOAD BIT 

IF REQUIRED. 

5C41 

3A1B5D l 

OLD: 

LDA 

HLSF 

;GET HEAD-LOAD FLAG. 

5C44 

B7 


ORA 

A 

;IS A = ZERO? 

5C45 

CA565C 


JZ 

HDLD1 

;HOP IF SO. 

5C48 

2F 


CMA 


;SET A = 0. 

5C49 

321B5D 


STA 

HLSF 

;SET FLAG = 0 IF NOT. 



f 

rIF CHANGING 

TO A NEW DRIVE 

PERFORM A SEEK TO 



(THE SAME TRACK TO UNLOAD THE HEAD ON NEW DRIVE. 

5C4C 

DBF9 


IN 

TRACK 

;GET PRESENT TRACK 

5C4E 

D3FB 


OUT 

DDATA 

;TELL CONTROLLER. 

5C50 

3E16 


MVI 

A,14H+STPRAT 


5C52 

D3F8 


OUT 

DCOM 



< 

t 

IF 

NOT DMACNTL 


5C54 

DBFC 


IN 

WAIT 

/WAIT FOR INTRQ. 



* 

ENDIF 



i 


IF 

DMACNTL 





CALL 

SLOOP 

;CHECK DMA STATUS PORT. 




ENDIF 


5C56 

DBF8 HDLD1: 

IN 

DSTAT 

;READ 1771 STATUS. 

5C58 

E620 


ANI 

20H 

/LOOK AT HL BIT. 

5C5A 

3E04 


MVI 

A, 4 


5C5C 

C8 


RZ 


;RETURN IF HEAD IS NOT LOADED, 

5C5D 

97 


SUB 

A 

;HEAD IS ALREADY LOADED. 

5C5E 

C9 


RET 


;RETURN FROM HDLD. 


; READ THE SECTOR AT SECT, FROM THE PRESENT TRACK, 
/ USE STARTING ADDRESS AT DMAADD. 


i 


5C5F 

3E0A 

READ: 

MVI 

A, RTCNT 

;GET RETRY COUNT. 



RRETRY: 







IF DMACNTL 





LXI 

B,80D0H 

/FLOPPY READ, FORCE INTERRUPT. 




LXI 

D,40 80H 

/DMA READ, DMA COUNT BYTE 




CALL DMARW 

/ENTER COMMON READ/WRITE ROUTINE. 




ENDIF 




# 

IF NOT DMACNTL 


5C61 

0680 


MVI 

B,80H 

/FLOPPY READ COMMAND BYTE. 

5C63 

CDC15C 


CALL DSKSET 

/SET UP DISK CONTROLLER. 

5C66 

BO 


ORA 

B 

/ 'OR' IN THE READ COMMAND. 

5C67 

D3F8 

READE: 

OUT 

DCOM 

/SEND COMMAND TO 1771. 

5C69 

DBFC 

RLOOP: 

IN 

WAIT 

/WAIT FOR DRQ OR INTRQ. 

5C6B 

B7 


ora 

A 

/SET FLAGS. 

5C6C 

F2765C 


JP 

RDDONE 

/DONE IF INTRQ. 

5C6F 

DBFB 


IN 

DDATA 

/READ A DATA BYTE FROM DISK. 

5C71 

77 


MW 

M, A 

/PUT BYTE INTO MEMORY. 

5C72 

23 


INX 

H 

/INCREMENT MEMORY POINTER. 

5C73 

C3695C 


JMP 

RLOOP 

/KEEP READING. 

5C76 

DBF8 

RDDONE: 

IN 

DSTAT 

/READ DISK STATUS. 
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ENDIF 


5C78 E69D 
5C7A C 8 
5C7B CD955C 
5C7E C2615C 
5C81 CD875C 
5C84 C35F5C 

•RECCV 

;THIS ROUTINE IS CALLED BY ANY READ,WRITE, SEEK ROUTINE IF THE RETRY 
;COUNT GOES TO 10. IF IT DOES,THIS ROUTINE CALLS CONIN FOR A KEY TO 
;BE RJSHED. IF THE KEY IS A CNTL-C, THEN A WARMBOOT IS EXECUTED. IF 
;ANY OTHER KEY IS PUSHED, THEN A RETURN IS MADE BACK TO THE CALLER 
;AND THAT ROUTINE IS RETRIED FOR 10 MORE TIMES. 


RECCV: 


5C87 

0B65 


MV I 

C, 'e' 

7 ERROR CODE 

5C89 

CD1E5B 


CALL 

CONOT 

7 PRINT IT 

5C8C 

CD135B 


CALL CON IN 

;CHECK FOR PUSHED KEY. 

5C8F 

FE03 


CPI 

03H 

;IS IT A CNTL-C ? 

5C91 

CO 


RNZ 


; RETURN TO CALLER IF NOT, 

5C92 

C3B15A 


JMP 

moor 

7 YES, DO WARMBOOT. 



• ERCHK 

- CHECK FOR 

RECORD NOT FOUND ERROR. 

5C95 

E610 

ERCHK: 

ANI 

10H 

7 IF RECORD NOT FOUND, 

5C97 

C29F5C 


JNZ 

CHKSK 

7 DO A CHECK CN SEEK. 

5C9A 

3A265D 

CHKOK: 

LDA 

ERCNT 

7 GET RETRYS ALLOWED 

5C9D 

3D 


DCR 

A 

7 DECREASE IT, 

5C9E 

C9 


RET 


7 AND RETURN WITH NUMBER. 


IF INTRP AND NOT DMACNTL 7 IF INTERRUPTS ALLOWED, 


El 

ENDIF 


;ALLOW AGAIN HERE. 


ANI 9DH 
RZ 

CALL ERCHK 
JMZ RRETHY 
CALL RECW 
JMP READ 


7 LOOK AT ERROR BITS. 

;RETURN IF NONE. 

;CHECK FOR SEEK ERROR. 

;TRY TO READ AGAIN. 

;CHECK FOR ABORT OR CONTINUE 
;IF NOT CNTL-C, TRY TO READ AGAIN. 


CHECK FOR SEEK TO CORRECT TRACK 


AND CHANGE IF NECESSARY. 


IF NOT DMACNTL 


5C9F 

3EC4 

CHKSK: 

MVI 

A, 0C4H 

5CA1 

D3F8 


OUT 

DCOM 

5CA3 

DBFC 


IN 

WAIT 

5CA5 

DBFB 


IN 

DDATA 

5CA7 

F5 


PUSH 

PSW 

5CA8 

DBFD 

CHKS2: 

IN 

DMACHK 

5CAA 

B7 


ORA 

A 

5CAB 

F2B35C 


JP 

CHKS3 

5CAE 

DBFB 


IN 

DDATA 

5CB0 

C3A85C 


JMP 

CHKS2 

5CB3 

DBF8 

CHKS3: 

IN 

DSTAT 




ENDIF 



i 

IF 

DMACNTL 



CHKSK: 

LXI 

H,BIOS-7 




LXI 

B,0C4D0H 




LXI 

D,04006H 




CALL DMARWE 




ORA 

A 




JZ 

CHKS4 


CALL HOME 
JMP CHKS5 


;SEND COMMAND TO 1771 
;TO READ ADDRESS. 

;WAIT FOR DRQ OR INTRQ. 
;READ THE TRACK ADDRESS. 
;SAVE IT ON THE STACK. 
;WAIT FOR INTRQ. 
ySET FLAGS. 

; DOME WITH READ Am OP. 

7 READ ANOTHER BYTE. 

; DO IT AGAIN. 

7READ DISK STATUS. 


7 POINT TO UNUSED SPACE 
7READ ADDRESS, FORCE INTERRUPT GMNDS. 
7DMA READ, COUNT BYTE 
7READ THE ID USING DMA CONTROL. 

7SET FLAGS. 

7 READ Am OK IF 0. 

7 OTHERWISE, HOME FIRST. 
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ENDIF 





IF 

NOT DMACNTL 


5CB5 

FI 

CHKS4: 

POP 

PSW 

/UPDATE TRACK REGISTER 




ENDIF 




t 

IF 

DMACNTL 




G1KS4: 

IN 

SECTP 

/GET THE TRACK BYTE 




ENDIF 


5CB6 

D3F9 


OUT 

TRACK 


5CB8 

3A155D 

CHKS5: 

LDA 

IRK 

/GET REQUIRED TRACK NO 

5CBB 

CDFB5B 


CALL 

SEEK 

/MOVE THE HEAD TO IT. 

5CBE 

C39A5C 


JMP 

CHKOK 

/EXIT FROM ERROR CHECK 



i 

IF 

NOT DMACNTL 


5CC1 

32265D 

DSKSET: 

STA 

ERCNT 

/STORE IN ERROR CTR. 

5CC4 

3 EDO 


MVI 

A, 0D0H 

/CAUSE INTERRUPT. 

5CC6 

D3F8 


CUT 

DCOM 


5CC8 

E3 


XTHL 


/SOME 

5CC9 

E3 


XTHL 


y DELAY 




ENDIF 



IF INTRP AND NOT DMACNTL/IF INTERRUPTS ALLOWED, 
DI ;DISABLE THEM HERE. 

ENDIF 




IF 

NOT DMACNTL 


5 CCA 2A175D 


LHLD 

DMAADD 

/GET STARTING ADDR. 

5CCD 3A165D 


LDA 

SECT 

/GET SECTOR NUMBER. 

5CD0 D3FA 


OUT 

SECTP 

/SET SECTOR INTO 1771. 

5CD2 CD415C 


CALL 

HOLD 

/GET HEAD-LOAD BIT? 

5CD5 C9 


RET 


/RETURN TO CALLER 



ENDIF 



/ WRITE 

THE SECTOR AT SECT, 

CN THE PRESENT TRACK, 


/ USE STARTING ADDRESS AT DMAADD. 

5CD6 3E0A 

WRITE: 

MVI 

A,RTCNT 

/GET RETRY COUNT. 


WRETRY: 

IF 

DMACNTL 




LXI 

B,0A0D0H 

/FLOPPY WRITE, FORCE INTERRUPT. 



LXI 

D,08080H 

/DMA WRITE, DMA COUNT BYTE. 



CALL 

DMARW 

/ENTER COMMON READ/WRITE ROUTINE 



ENDIF 




IF 

NOT DMACNTL 


5CD8 06AO 


MVI 

B,0A0H 

/FLOPPY WRITE COMMAND BYTE. 

5CDA CDC15C 


CALL DSKSET 

/SET UP FLOPPY CONTROLLER. 

5CDD BO 


ORA 

B 

; 'OR' IN WRITE COMMAND. 

5CDE D3F8 

WRITE2: 

OUT 

DCOM 


5CE0 DBFC 

WLOOP: 

IN 

WAIT 

/WAIT FOR READY. 

5CE2 H7 


ORA 

A 

/SET FLAGS. 

5CE3 F2ED5C 


JP 

WDONE 

/HOP OUT WHEN DONE. 

5CE6 7E 


MOV 

A,M 

/GET BYTE FROM MEM. 

5CE7 D3FB 


OUT 

DDATA 

/WRITE ONTO DISK. 

5CE9 23 


INX 

H 

/INCREMENT MEM FIR. 

5CEA C3E05C 


JMP 

WLOOP 

/KEEP WRITING. 

5CED DBF8 

WDQNE: 

IN 

DSTAT 

/READ DISK STATUS. 


ENDIF 


IF INTRP AND NOT DMACNTL/IF INTERRUPTS ALLOWED, 
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El 

■ENABLE AGAIN HERE. 




ENDIF 


5CEF 

E6FD 

9 

ANI OFDH 

LOCK AT THESE BITS. 

5CF1 

C8 


RZ 

RETURN IF NO ERR. 

5CF2 

CD955C 


CALL ERCHK 

CHECK/CORRECT SEEK ERR. 

5CF5 

C2D85C 


JNZ WRETRY 

TRY TO WRITE AGAIN. 

5CF8 

CD875C 


CALL RECCV 

CHECK FOR ABORT 

5CFB C3D65C 


JMP WRITE 

RETRY WRITE AGAIN. 



•LIST STATUS CHECK ROUTINE 


5CFE 

CD065D 

PRSTAT: 

CALL PSTAT 

CHECK PRINTER STATUS PORT 

5D01 

3E00 

9 

MVI A, 0 

•RETURN STATUS ACTIVITY. 



? 

IF TARDEL OR KDYLO 


5D03 

CO 


RNZ 

ENDIF 




9 

IF RDYHI 

RZ 





ENDIF 


5D04 

2F 

9 

CMA 

; INVERT IT 



; PUNCH 

AND READER ARE NOT SUPPORTED. 



PUNCH: 



5D05 

C9 

READER: 

RET 




;PSTAT • 

- PRINTER STATUS CHECK ROUTINE. 

5D06 

DB02 

PSTAT: 

IN LSTAT 

;READ PRINTER STATUS PORT. 



9 

IF NOT TARDEL 


5D08 

E680 


ANI LKBIT 

ENDIF 




9 

IF TARDEL 

ANI 81H 

XRI 81H 

;MASK READY BITS 




ENDIF 


5D0A C9 

9 

RET 

RETURN TO CALLER 


WRITE A CHARACTER CN LISTING DEVICE. 


LIST: 


IF 

LSTNUL 

;IF NULLS OR PAGING 

MVI 

A, ODH 

;IF IT'S A CR, 

CMP 

C 

;THEN HOP OUT TO 

JZ 

LINUL 

;NULL ROUTINE. 

ENDIF 


IF 

LSTPAG 

;IF PAGING 

MVI 

A, OAH 

;GET A LINEFEED 

CMP 

C 

;DOES IT MATCH? 

JZ 

LINUL3 


MOV 

A,C 


CPI 

OCH 


RZ 
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ENDIF 


5D0B CD06 5D 

LTBSY: 

CALL 

PSTAT 

;READ LISTER STATUS. 




IF 

TARDEL OR EDYLO 


5D0E 

C20B5D 


JNZ 

LTBSY 

;LOOP TILL LCW. 




ENDIF 




t 

IF 

NOT TARDEL AND RDYHI 




JZ 

LTBSY 

;LOOP TILL HIGH. 




ENDIF 


5D11 

79 

t 

WN 

A,C 

;GET DATA BYTE. 

5D12 D303 


CUT 

LDATA 

;PRINT IT. 

5D14 

C9 


RET 


;RETURN FROM LIST. 



t 

IF 

LSTNUL 

;IF LIST NULLS 



LINUL: 

PUSH 

B 

;SAVE B&C. 




MVI 

B, (LNULL AND OFFH)+1 /GET NULL COUNT 



LINUL1: 

CALL 

LTBSY 

; PRINT (CR FIRST) . 




MVI 

C,0 

;GET NULL CHAR. 




DCR 

B 

;DECREMENT COUNTER. 




JNZ 

LINUL1 

;DO NEXT NULL. 




JMP 

LINUL2 

;EXIT THE ROUTINE. 




ENDIF 




/ 

IF 

LSTPAG 

;IF LIST DEV. PAGING, 



LINUL3: 

PUSH 

B 

;SAVE B,C PAIR 




LDA 

LFCNT 

;GET LINE-FEED COUNT. 




INR 

A 

; INCREMENT IT. 




STA 

LFCNT 

;SAVE IT BACK. 




CPI 

LINCNT-(LINCNT/11) 

;END OF PAGE? 




MVI 

Bf 1 

;SET UP FOR 1 LF. 




JNZ 

NOTEOP 

;HOP IF NOT END. 




XRA 

A 

;SET LF COUNT = 0. 




STA 

LFCNT 





MVI 

B,(LINCNT/11)+1 

;BETWEEN PAGES. 



NOTEOP: 

MVI 

C,0AH 

;GET LINE-FEED CODE. 



LSTPA1: 

CALL 

LTBSY 

;PRINT LINE-FEED. 




DCR 

B 

; DECREMENT LF COUNTER 




JNZ 

LSTPA1 

;DO NEXT LINE FEED? 




ENDIF 




? 

IF 

LSTNUL OR LSTPAG 

;IF NULLS OR PAGING, 



LINUL2: 

POP 

B 

; RESTORE B&C. 




KN 

A, C 

/RESTORE A. 




RET 


/RETURN FROM LIST. 




ENDIF 


5D14 

= 

ENDPROG 

0 

a 

$-1 

/ENDING ADDRESS. 


/NOTE: AS THERE ARE ONLY SIX (6) SECTORS AVAILABLE FOR CBIOS CN 
;THE SECOND SYSTEM TRACK (1) , THE LAST ADDRESS BEFORE THIS POINT 
;SHOULD BE NO GREATER THAN THE (BIOS STARTING ADDRESS + 037F (HEX). 

;THIS WILL NORMALLY BE XD7F (HEX) . 

• 

; BIOS SCRATCH AREA. 

5D15 TRK: DS 1 ?CURRENT TRACK NUMBER. 

5D16 SECT: DS 1 /CURRENT SECTOR NUMBER. 

5D17 DMAADD: DS 2 ;DISK TRANSFER ADDRESS. 
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5D19 


5D1B 

5D1C 


5D1D 

5D21 

5D25 

5D26 

5D27 

5D28 

5D29 

5D2A = 

5D2A = 

5D2A 

5DAA 

5DC9 

5DE1 

5EX)0 

5E18 

5E37 

5E4F 

5B6E 

5E86 = 

015C = 

5E86 

5D14 

5D14 


; THE NEXT SEVERAL BYTES, BETWEEN STARTZ AND 

; ENDZ, ARE SET TO ZERO AT COLD BOOT TIME. 

• 

STARTZ: ;START OF ZEROED AREA. 

DISKNO: DS 2 ;DISK NUMBER 


SPECIAL FLAGS. 


HLSF: 

DS 

1 

;HEAD-LOAD SELECT FLAG. 

LFCNT: 

DS 

1 

; PAGING LINE-FEED COUNT. 

; TRTAB 

- DISK TRACK TABLE - PRESENT POSITION OF 


HEADS FOR UP TO 4 

DRIVES. 

TRTAB: 

DS 

4 


DRVFLG: 

DS 

4 

;DRIVE DENSITY FLAGS. 

DENS: 

DS 

1 

; CURRENT DRIVE DENSITY VALUE. 

ERCNT: 

DS 

1 

;ERROR COUNT FOR RETRIES. 

SERCNT: 

DS 

1 

;SEEK RETRY COUNTER. 

LATCH: 

DS 

1 

;NEW CODE FOR LATCH. 

CLATCH: 

DS 

1 

;CURRENT CODE IN LATCH. 

ENDZ 

BQU 

$ 


BEGDAT 

EQU 

$ 


DIRBUF: 

DS 

128 

;DIRECTORY BUFFER 

ALVO: 

DS 

31 


CSVO: 

DS 

24 


ALV1: 

DS 

31 


CSV1: 

DS 

24 


ALV2: 

DS 

31 


CSV2: 

DS 

24 


ALV3: 

DS 

31 


CSV3: 

DS 

24 


ENDDAT 

EQU 

$ 


DATSIZ 

ECU 

$-BEEDAT 

;TOTAL SIZE OF DISK PARM STORAGE. 

DBUFF: 

DS 

128 

;128 BYTE DENSITY SELECT BUFFER. 

# 

OFG 

ENDPROG 

;SHOW ACTUAL ENDING ADDRESS CF BIOS 


END 
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TARBELL ELECTRONICS CP/M COLDSTART LOADER 
VERSION OF 7-31-80. 


Modified for DMA Control - 1-5-80. 

Modified for reading larger bios from IRK 1 - 6-5-80. 

Modified for Tarbell CFO Card - 7-3-80. 

G.W.Mulchin 
Tarbell Electronics 


Copyright (c) 1980 Tarbell Electronics 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


"k k 

* ** NOTE ** * 

* _____________ * 

* * 


* The equate for Double Density (DOUBDEN) must only be * 

* set true for a disk which is formatted in double density only * 

* and one which you wish to put an operating systan on to. * 

* Otherwise, leave it false if you are building an operating * 

* system on to a single density formatted disk. * 

* * 

***************************************************************** 


; THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROGRAM, 
; AND EXECUTED. ITS PURPOSE IS TO LOAD AND EXECUTE THE CP/M DISK 
; OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. 

0000 = FALSE BQU 0 ;DEFINE VALUE OF FALSE. 

FFFF = TRUE EQU NOT FALSE ;DEFINE VALUE CF TRUE. 


********* this IS THE AREA TO MAKE CHANGES IN ******************* 
********* FOR DIFFERENT SYSTEM CONFIGURATIONS ******************* 

** 


0018 = 

MSIZE 

EQU 

24 

;MEMORY SIZE IN DECIMAL KB. 

★ ★ 

0000 = 

TARBELL 

EQU 

FALSE 

;TRUE IF USING TARBBELL CPU. 

kk 

0000 = 

DUBSID 

EQU 

FALSE 

;TRUE FOR DOUBLE SIDED SYSTEMS. 

kk 

0000 = 

DELTA 

EQU 

FALSE 

;TRUE IF USING DELTA CPU CARD 

kk 

0000 = 

DOUBDEN EQU 

FALSE 

;TRUE IF DCXJB. DEN DISK. 

kk 

0000 = 

DMACNTL 

EQU 

FALSE 

;TRUE IF USING DMA CONTROL 

kk 

0000 = 

BASE 

EQU 

0 

;TARBELL I/O PORTS (00 or 10 HEX) 

kk 

001A = 

SPT 

EQU 

26 

;NUMBER OF SECTORS PER TRACK. 

kk 

001A = 

DDS 

EQU 

26 

;sectors in trk 1 , (Range = 26 to 51) 

kk 

00F8 = 

DISK 

EQU 

0F8H 

;DISK PORT BASE ADDRESS. 

kk 


** 

***************************************************************** 



• 

i 

IO 

MMENB 

MEMMAG 

IF TARBELL 
EQU BASE 

EQU 10+10 

EQU RASE+32 
ENDIF 

;i/o ports on tarbell cpu. 
;memory management enable port. 
;memory management port. 

00E0 = 

ADR0 

EQU 

QE0H 

;DMA ADDRESS PORT. 
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00E1 = 

WCTO 

BQU 

0E1H 

;DMA WORD COUNT PORT. 

00E8 = 

CMND 

EQU 

0E8H 

;DMA COMMAND PORT. 

00F8 = 

DCOM 

EQU 

DISK 

/COMMAND PORT. 

00F8 = 

DSTAT 

EQU 

DISK 

;STATUS PORT. 

00F9 = 

TRACK 

BQU 

DISK+1 

;TRACK PORT. 

OOFA = 

SECT 

EQU 

DISK+2 

;SECTOR PORT. 

OOFB = 

DATA 

EQU 

DISK+3 

;DATA PORT. 

OOFC = 

WAIT 

EQU 

DISK+4 

;WAIT PORT. 

OOFC = 

DCONT 

EQU 

DISK+4 

/CONTROL PORT. 

OOFD = 

DMACHK 

BQU 

DISK+5 

;DMA CHECK PORT. 

OOFF = 

PANEL 

EQU 

OFFH 

/front panel machines. 

1000 = 

CEASE 

EQU 

(MSIZB-20)*1024 

4400 = 

CPMB 

BQU 

CBASE+3400H;START OF CP/M. 

5A00 = 

BOOTE 

EQU 

CPMB+1600H 

/COLD BOOT ENTRY POINT. 

0019 = 

SDS 

EQU 

25 

/always 25 sectors to read in 

0033 = 

NSECTS 

EQU 

SDS + DDS 

/SECTORS OF CP/M. 

OOOA = 

RTCNT 

EQU 

10 

/NUMBER OF RETRYS. 

0000 

9 

ORG 

0 

/START OF LOADER. 


BOOT: 

IF 

TARBELL 

/IF USING TARBELL CRJ 



LXI 

D,1000H 

/COUNTXL6, DATA BYTE = 0 



MVI 

C,MEMMAG AND OFFH 


ML OOP: 

MW 

A,E 

/GET ADDRESS VALUE 



ORA 

C 

/MAKE I/O PORT VALUE 



STA 

MOUTH-1 

/MODIFY PORT CN THE FLY 



MOT 

A,E 

/GET IN IT VALUE. 



CMA 


/FLIP IT FOR RAM CN CRJ 


MOUT: 

OUT 

BASE 

/PUT IT TO RAM CN CRJ 



INR 

E 

/BUMP DATA VALUE 



DCR 

D 

/DECREASE COUNT 



JNZ 

ML OOP 

/LOOP 16 TIMES. 



OUT 

MMENB 

/ENABLE MEMORY MANAGEMENT. 



ENDIF 



9 

IF 

DELTA 

/IF USING DELTA CRJ. 



MVI 

A,1 

/GET A 1 IN REG A. 



OUT 

9 

Z AND DISABLE CRJ ROM SLOT. 



EMDIF 


0000 1E0A 

9 

MVI 

E,RTCNT 

/GET RETRY COUNT. 

0002 310001 

BLOOP: 

LXI 

SP,100H 

/SET STACK POINTER. 

0005 210044 


LXI 

H,CPMB 

/CP/M STARTS HERE. 

0008 1633 


MVI 

D,NSECTS 

/NUMBER CF SECTORS TO READ. 

OOOA 0E02 


MVI 

C,2 

/SECTOR NUMBER. 

OOOC 0604 

RNTRK: 

MVI 

B,4 

/FOR HEAD LOAD. 

OOOE CD2900 

RNSEC: 

CALL 

READ 

/READ FIRST SECTOR. 

0011 15 


DCR 

D 

/IF DONE, 

0012 CA005A 


JZ 

BOCTE 

/GO TO CP/M. 

0015 0600 


MVI 

B,0 

/FOR NO HEAD LOAD. 

0017 OC 


INR 

C 

/INCREMENT SECTOR COUNT. 

0018 79 


MOT 

A,C 

/DONE WITH 

0019 FE1B 

SECCMP: 

CPI 

SPPfl 

/THIS TRACK? 

001B DAOBOO 


JC 

RNSEC 

/IF NOT, READ NEXT SECTOR. 


f 

IF 

DOUBDEN AND NOT DUBSID 



MVI 

A,DDS + 1 

/number of sectors to read on 



STA 

SECCMP+1 

/modify sector compare value. 



MVI 

A, 8 

/GET SET DOUBLE DENSITY CODE 



OUT 

WAIT 

/SET LATCH FOR D.DENSITY 



ENDIF 
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/ 

IF 

NOT DUBSID 


001E 

3E5B 


MV I 

A, 5BH 

;STEP COMMAND. 

0020 

D3F8 


OUT 

DCOM 

;ISSUE IT. 

0022 

DBFC 


IN 

WAIT 

;WAIT UNTIL DONE. 




ENDIF 




7 

IF 

DUBSID 

;IF DOUBLE SIDED SYSTEM. 




MV I 

A, 40H 

;SIDE SELECT' COMMAND. 




OUT 

DCONT 

;ISSUE IT. 




ENDIF 


0024 

0E01 

7 

MVI 

C,1 

;SECTOR NUMBER. 

0026 

C30C00 


JMP 

RNTRK 

;READ NEXT TRACK. 



READ: 

IF 

DMACNTL 

;IF USING DMA CCNTRCL. 




MVI 

A,41H 

;SET UP FOR CHAN 0 RBQ. 




OUT 

CMND 





MVI 

A,7FH 

;COUNT FOR 128 BYTES 




OUT 

WCT0 





MVI 

A, 40H 

;READ COMMAND 




OUT 

WCT0 





MOV 

A, L 

;GET LCW ADDRESS BYTE 




OUT 

ADR0 





MW 

A, H 

;HIGH ADDRESS BYTE 




OUT 

ADRO 





ENDIF 


0029 

79 

7 

MOV 

A,C 

; SECTOR IN A. 

002A 

D3FA 


OUT 

SECT 

;SET SECTOR REGISTER. 

002C 

3E88 


MVI 

A,88H 

;COMMAND FOR READ. 

002E 

BO 


ORA 

B 

;GET HEAD LOAD BIT. 

002F 

D3F8 


CUT 

DCOM 

;ISSUE COMMAND. 



7 

IF 

NOT DMACNTL;IF NOT USING DMA CONTROL. 

0031 

DBFC 

RLOOP: 

IN 

WAIT 

;WAIT FOR DRQ. 

0033 

B7 


ORA 

A 

;SET FLAGS. 

0034 

F23E00 


JP 

CHECK 

;JUMP IF DONE. 

0037 

DBFB 


IN 

DATA 

;READ DATA. 

0039 

77 


MOV 

M,A 

;PUT IN MEMORY. 

003A 

23 


INK 

H 

; INCREMENT POINTER. 

003B 

C33100 


JMP 

RLOOP 

;LOOP UNTIL DONE. 




ENDIF 




7 

IF 

DMACNTL 




SLOPP: 

IN 

DMACHK 

;CHECK DMA STATUS 




RLC 


/ BIT 7 




JC 

SLOPP 

;LOOP IF CARRY 




PUSH B 

;SAVE B,C PAIR 




LXI 

B,128 

; COUNT SET FOR 128 BYTES 




DAD 

B 

/ADJUST H,L BY 128 BYTES 




POP 

B 

/RESTORE BC 




ENDIF 


003 E 

DBF8 

CHECK: 

IN 

DSTAT 

/READ STATUS. 

0040 

E69D 


ANI 

9DH 

/LOCK AT ERROR BITS. 

0042 

C8 


RZ 


/OK IF ZERO. 

0043 

ID 


DCR 

E 

/DECREMENT RETRY COUNT. 

0044 

C20200 


JNZ 

BLOOP 

/TRY AGAIN IF NOT ZERO. 

0047 

2F 


CMA 


/flip for front panel 

0048 

D3FF 


OUT 

PANEL 

/show error code from floppy. 
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004A C34A00 

HERE: 

JMP 

HERE 

;LOOP. 


007D 


? 

OHG 

7DH 

;PUT JUMP HERE. 




t 

IF 

DOUBDEN 

AND NOT DUBSID ;IF RUNNING DOUBLE DENSITY 




RST 

0 

;DO RESTART 0 





DB 

ODDH 

jlHIS BYTE MOST BE 

HERE IF DOUB DEN. 




DB 

0 

;THIS BYTE UNUSED 





ENDIF 





i 

IF 

DOUBDEN 

AND DUBSID 





RST 

0 






DB 

ODFH 






DB 

0 






ENDIF 





t 

IF 

NOT DOUBDEN AND NOT DUBSID 


007D 

C7 


RST 

0 

;DO WARM BOOT WITH 

RST INST. 

007 E 

ES 


DB 

0E5H 



007F 

00 


DB 

0 






ENDIF 





t 

IF 

NOT DOUBDEN AND DUBSID 





RST 

0 






DB 

0E7H 






DB 

0 






ENDIF 



0080 


t 

EM) 

BOOT 

;END OF BOOT. 




. #•- 







SLOPP: 

IN 

DMACHK 

;CHECK DMA STATUS 




KLC 


7 BIT 7 




JC 

SLOPP 

;LOOP IF CARRY 




PUSH 

B 

;SAVE B.C PAIR 




LXI 

B/128 

; COUNT SET FOR 128 BYTES 




DAD 

B 

;ADJUST H,L BY 128 BYTES 




POP 

B 

;RESTORE BC 




ENDIF 


003 E 

DBF8 

CHECK: 

IN 

DSTAT 

;READ STATUS. 

0040 

E69D 


ANI 

9dh 

;LOCK AT ERROR BITS. 

0042 

C8 


RZ 


;OK IF ZERO. 

0043 

ID 


DCR 

E 

7 DECREMENT RETRY COUNT. 

0044 

C20200 


JNZ 

BLOOP 

7TRY A3AIN IF NOT ZERO. 

0047 

2F 


CMA 


7 flip for front panel 

0048 

D3FF 


OUT 

PANEL 

7 shew error code from floppy. 

004A C34A00 

HERE: 

JMP 

HERE 

;LOOP. 

007D 


f 

ORG 

7DH 

7 PUT JUMP HERE. 

007D 

C7 


RST 

0 

7USE RESTART 



r 

IF 

DOUBDEN 





DB 

0DDH 

7THIS BYTE MUST BE HERE IF DOUB DEN. 




DB 

0 

7THIS BYTE UNUSED 




ENDIF 




i 

IF 

NOT DOUBDEN 

007 E 

E5 


DB 

0E5H 


007F 

00 


DB 

0 





ENDIF 


0080 



EM) 

BOOT 

7END OF BOOT. 

B> 












ZSBiOSZ4. PRN (S. D. CONTROLLER ) STD S. D. 


; CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 

; TARBELL ELECTRONICS Cffl 2.2 VERSION CF 7-16-80. 

; Copyright (c) 1980 Tarbell Electronic^": r - 1 

; THIS BIOS NOW SUPPORTS THE NEW TARBELL Z-80 CFJ BOARD. 

; THIS MODULE CONTAINS ALL THE INPUT/CUTPUT ROUTINES 
; FOR THE CP/M SYSTEM, INCLUDING THE DISK ROUTINES. 

; THIS SECTION DEFINES THE I/O PORTS AND STATUS BITS. 

; BY SETTING THE PROPER VALdES FOR THE EQU STATEMENTS, 

; THE I/O MAY BE AUTOMATICALLY RECONFIGURED TO FIT MOST 
; SITUATIONS. THE TRUE AND FALSE ONES CONTROL CONDITIONAL 
? ASSEMBLIES OF DIFFERENT SECTIONS CF I/O ROUTINES TO FIT 
; DIFFERENT INTERFACE REQUIREMENTS. 

FFFF = TRUE EQU OFFFFH ;DEFINE VALUE OF TRUE. 

0000 = FALSE EQU NOT TRUE ;DEFINE VALUE OF FALSE. 

.*************************************************** 

;*** THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 

;*** FOR DIFFERENT CONSOLE I/O SYSTEMS *** 

. *************** ************************************ 


0018 

= 

MSIZE 

EQU 

24 

;MEMORY SIZE IN KBYTES. 

0000 

= 

INTRP 

EOU 

FALSE 

;TRUE 

IF 

INTERRUPTS ALLOWED. 

0000 

= 

TARBELL 

eQu 

FALSE 

;TRUE 

IF 

USING THE TARBELL Z-80 CPU. 

0000 

r= 

IOBASE 

EQU 

0 

;BASE 

IO 

ADDR FOR TARBELL CPU (0 or 10 

0000 

= 

TIMER 

EQU 

FALSE 

?TRUE 

IF 

USING CEU TIMER (Tarbell CPU I 

FFFF 

= 

STD 

EQU 

TRUE 

;TRUE 

IF 

STANDARD I/O. 

0000 

— 

MS 102 

EQU 

FALSE 

;TRUE 

IF 

MITS 2SIO. 

0000 

= 

VDB8024 

EQU 

FALSE 

;TRUE 

IF 

USING VDB-8024 BOARD. 

0000 

= 

DELTA 


FALSE 

;TRUE 

IF 

USING DELTA PRODUCTS CPU. 

0000 

= 

IS 102 

EQU 

FALSE 

;TRUE 

IF 

IMSAI SIO-2. 

0000 

= 

TUART 

EOU 

FALSE 

;TRUE 

IF 

CRCMEMCO TUART. 

0000 

= 

VIDEO 

EQU 

FALSE 

;TRUE 

IF 

USING A MEMORY MAPPED VIDEO. 

0000 

— 

OTHER 

EQU 

FALSE 

;TRUE 

IF 

SOMETHING ELSE. 

nooo 

rr 

SOLOS 

EQU 

FALSE 

;TRUE 

IF 

PROC TECH SOLOS. 

Oooo 

= 

DUBSID 

EQU 

FALSE 

;TRUE 

FOR DOUBLE SIDED DRIVES. 

0000 

= 

DUAL 

EQU 

FALSE 

;TRUE 

IF 

DUAL DRIVE. 

0000 

= 

PERSCI 


FALSE 

;TRUE 

IF 

FAST SEEK (PERSCI). 

0004 

= 

NDISK 

I8u 

4 

;DEFINES 

THE NUMBER DRIVES IN SYSTEM. 


0000 

0000 

0001 

0002 

0002 

0003 


IF VIDEO 
OUTADDR EQU 0 
ENDIF 


; IF USING A VIDEO BOARD 
;PUT OUTPUT ADDRESS HERE 


CSTAT 

CCQM 

CDATA 

LSTAT 

LCOM 

LDATA 


IF NOT SOLOS AND NOT TARDEL 



;CONSOLE STATUS PORT. 

;CONSOLE COMMAND PORT. 
;CONSOLE DATA PORT. 
;LIST STATUS PORT. 
;LIST COMMAND PORT. 
;LIST DATA PORT. 


;IF NOT PROC TECH SOLOS, 


0000 = 

CONUL 

EQU 

FALSE 

;CONSOLE NULLS? 

0000 = 

CNULL 

EQU 

0 

;CONSOLE NULL COUNT. 

0000 = 

LSTNUL 

EQU 

FALSE 

;LIST DEVICE NULLS? 

0000 = 

LNULL 

EQU 

0 

;LIST NULL COUNT. 

0000 = 

LSTPAG 

EQU 

FALSE 

;LIST DEVICE PAGING? 

0042 = 

LINCNT 

EQU 

66 

;LINES PER PAGE. 

0000 - 

HLAB 

EQU 

0 

;8 FOR HD LD AT BEG OF SEEK 

0002 = 

STPRAT 

EQU 

2 

;RATE 1=6MS, 2=10MS, 3=20MS 


•***********************^****************************^** 

;*** THIS IS THE END OF THE AREA WHICH NORMALLY NEED *** 
;*** BE CHANGED FOR MOST CONSOLE I/O SYSTEMS *** 
.******************************************************* 


FFFF = 

0000 = 

0000 = 

RDYLO 

RDYHI 

TARDEL 

EQU 

EQU 

EQU 

STD OR SOLOS OR OTHER ;STATUS READY WHEN LOW. 

NOT RDYLO 

TARBELL OR DELTA ;IF USING TARBELL OR DELTA CPU 


r 

CCOM 

CSTAT 

CDATA 

IF 

EQU 

TARDEL 

IOBASE+1 

IOBASE+1 

IOBASE+0 

;IF USING TARBELL OR DELTA CPU 
;CONSOLE COMMAND PORT 
;CONSOLE STATUS PORT ( CHAN A.) 

;CONSOLE DATA PORT 


Pace 001 



00F8 = 


00F8 = 

88PI: 

OOFA = 
OOFB = 
OOFC = 
OOFC = 
OOOA = 


OOOl = 
0080 = 


LCOM 

LSTAT 

IDATA 


EQU IOBASE+3 
EQU IOBASE+3 
EQU IOBASE+2 
ENDIF 


;LIST COMMAND PORT 

;LIST STATUS PORT (CHAN B.) 

;LIST DATA PORT 


IF 


TIMER AND TARBELL 


;MUST BE USING TARBELL CPU. 


; TIMER EQUATES 

TCHO EQU 
TCH1 EDU 
TCH2 EQU 
TCMND EQU 
IMASK EQU 
CNTRO EQU 
CNTR1 EQU 
CNTR2 EQU 
RLWORD EQU 
RLHBYTE EOU 
RLLBYTE EQU 
CNTRLT EQU 
BINARY EQU 
BCD EQU 
MODEO EQU 
MCDE1 BQU 
MCDE2 EQU 
MCDE3 EQU 
MCDE4 EQU 
MODE5 EQU 


IOBASE+4 

IOBASE+5 

IOBASE+6 

IOBASE+7 

IOBASE+8 

00000000B 

01000000B 

10000000B 

00110000B 

00100000B 

00010000B 

00000000B 

00000000B 

00000001B 

00000000B 

00000010B 

00000100B 

00000110B 

00001000B 

00001010B 


TIMER CHAN 0 ADDRESS 
TIMER CHAN 1 ADDRESS 
TIMER CHAN 2 ADDRESS 
TIMER COMMAND PORT 
INTERRUPT MASKING PORT 
counter 0 
counter 1 

rea3^1oal lsb 1st, msb 2nd. 
read/load msb only, 
read/load lsb only, 
counter latching operation, 
select binary operation, 
select BCD operation, 
interrupt on terminal count, 
programmable One-shot, 
rate generator, 
square wave rate generator, 
software triggered strobe, 
hardware triggered strobe. 



IF 

SOLOS 

CSTAT 

EQU 

0FAH 

KBD 

EQU 

0CO2EH 

CLRSCR 

EQU 

0C0D5H 

SCRN 

EQU 0C054H 
ENDIF 


IF NOT SOLOS 

DISK 

EQU 0F8H 

ENDIF 


IF SOLOS 

DISK 

EQU 0E8H 

ENDIF 

DCOM 

EOU 

DISK 

DSTAT 

EQU 

DISK 

TRACK 

EOU 

DISK+1 

SECTP 

EQU 

DISK+2 

DDATA 


DISK+3 

WAIT 

sou 

DISK+4 

DCCNT 

EQU 

DISK+4 

RTCNT 

EQU 

10 


IF 

STD 

CKBR 

EQU 

00000001B 

CPTR 

EQU 

10000000B 


ENDIF 


IF 

MS 102 

CKBR 

EOU 

00000001B 

CPTR 

EOU 

00000010B 


ENDIF 


IF 

VDB8024 

CKBR 

EOU 

00000010B 

CPTR 

EOU 

00000100B 


ENDIF 

f 

IF 

IS 102 

CKBR 

EQU 

00000010B 

CPTR 

EOU 

00000001B 


ENDIF 

/ 

IF 

TARDEL 

CKBR 

EQU 

00000010B 

CPTR 

EQU 

00000001B 


ENDIF 


;IF PROC TECH SOLOS, 

;CONSOLE STATUS PORT. 
;SOLOS KEYBOARD. 

;CLEAR SCREEN. 

;SOLOS OUTPUT. 


;IF NOT PROC TECH SOLOS, 
;DISK BASE ADDRESS. 


;IF PROC TECH SOLOS, 

;DIFFERENT DISK PORTS. 


;DISK COMMAND PORT. 
;DISK STATUS PORT. 
;DISK TRACK PORT. 
;DISK SECTOR PORT. 
;DISK DATA PORT. 

;DISK WAIT PORT. 

;DISK CONTROL PORT. 

; RETRY COUNT. 

;IF STANDARD I/O, 
;KEYBQARD READY BIT. 
;CCNS OUTPUT RDY BIT. 


;IF MITS 2SIO, 

;KEYBOARD READY BIT. 

; PRINT READY BIT. 

;IF VDB-8024 BOARD. 

;KEYBOARD READY BIT. 
;CCNS OUTPUT RDY BIT. 


;KEYBOARD READY BIT. 
;PRINT READY BIT. 


;KEYBOARD READY BIT. 
;PRINT READY BIT. 
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IF TUART ;IF CRCMEMCO TUART, 

CKBR BQU 01000000B /KEYBOARD READY BIT. 

CFTR BQU 10000000B /PRINT READY BIT. 

ClENDIF 

IF SCLOS /IF PROC TECH SCLOS, 

CKBR BQU 00000001B /KEYBOARD READY BIT. 

CFTR EQU 10000000B /DUMMY BQU. 

ENDIF 

IF OTHER /IF SOMETHING ELSE, 

CKBR BQU 00000010B /KEYBOARD READY BIT. 

CPTR BQU 10000000B /PRINTER READY BIT. 

ENDIF 


0080 

= 

LRBIT 

EQU 

CPTR /LISTER I 

READY BIT. 

0003 

== 

IOBYTE 

BQU 

3 

ADDRESS OF I/O BYTE. 

1000 

=z 

CBASE 

BQU 

(MSIZE-20)*1024 

BIAS FOR LARGER THAN 2OK. 

4400 

= 

CPMB 

BQU 

CBASE+3400H 

START OF CPM 2.0 

4C06 

= 

BDOS 

EQU 

CPMB+806H 

START OF BDOS 2.0. 

5A00 

= 

BIOS 

BQU 

CPMB+1600H 

START OF CBIOS IO. 

0004 

= 

CDISK 

EQU 

4 

LOCATION 4 IS CURRENT DISK 

0011 


NSECTS 

EQU 

17 

NUMBER OF SECTORS IN IT. 

5A00 



ORG 

BIOS ; 

START OF CBIOS STRUCTURE. 


I/O JUMP VECTOR 

THIS IS WHERE CPM CALLS WHENEVER IT NEEDS 
TO DO ANY INPUT/OUTPUT OPERATION. 

USER PROGRAMS MAY USE THESE ENTRY POINTS 
ALSO, BUT NOTE THAT THE LOCATION OF THIS 
VECTOR CHANGES WITH THE MEMORY SIZE. 


5A00 

C39C5A 

JMP 

BOOT 

■FROM OXD START LOADER. 

5A03 

C3EF5A 

WBOCTE: JMP 

WBOCT 

-FROM WARM BOOT. 

5A06 

C3235B 

JMP 

CONST 

CHECK CONSOLE KB STATUS. 

5 AO 9 

C32C5B 

JMP 

CON IN 

■READ CONSOLE CHARACTER. 

5A0C 

C33 85B 

JMP 

CONOT 

■WRITE CONSOLE CHARACTER. 

5AQF 

C3E45C 

JMP 

LIST 

■WRITE LISTING CHAR. 

5A12 

C3DE5C 

JMP 

PUNCH 

■WRITE PUNCH CHAR. 

5A15 

C3DE5C 

JMP 

READER 

•READ READER CHAR. 

5A18 

C37B5B 

JMP 

HOME 

•MOVE DISK TO TRACK ZERO. 

5A1B C3435B 

JMP 

SELDSK 

;SELECT DISK DRIVE. 

5A1E 

C37D5B 

JMP 

seturk 

rSEEK TO TRACK IN RB3 A. 

5A21 

C3CB5B 

JMP 

SETSEC 

;SET SECTOR NUMBER. 

5A24 

C3D65B 

JMP 

SETDMA 

;SET DISK STARTING ADR. 

5A27 

C3FD5B 

JMP 

READ 

;READ SELECTED SECTOR. 

5A2A C37D5C 

JMP 

WRITE 

;WRITE SELECTED SECTOR. 

5A2D 

C3D75C 

JMP 

PRSTAT 

;LIST STATUS CHECK. 

5A30 

C3D05B 

JMP 

SECTRAN 

; SECTOR TRANSLATE ROUTINE 


THIS SECTION DEFINES THE THE DISK PARAMETERS 
NOTE: 

IF YOU HAVE THE MACRO ASSEMBLER (MAC) FROM 
DIGITAL RESEARCH, YOU MAY ELIMINATE THIS SECTION 
STARTING AT **AA** TO **BB** AND USE THE MACRO 
FILE "DISKDEF" TO CUSTOM TAILOR YOUR SYSTEM TO 
ALLOW DIFFERENT TYPES OF DRIVES OR MORE THAN 4 
DRIVES. 




5A33 

— 

DPBASE 

EQU 

$ 

/BASE CF DISK PARAflETER BLOCK 

5A33 

825A0000 

DPE0: 

DW 

XLT0,0000H 
OOOOH,OOOOH 

/TRANSLATE TABLE 

5A37 

00000000 


DW 

/SCRATCH AREA 

5A3B 

FE5C735A 


DW 

DIRBUF,DPB0 

/Dir buff, parm block 

5A3F 

9D5D7E5D 


DW 

CSV0 ,ALV0 

/CHECK, ALLOC VECTORS 

5A43 

5A47 

5A4B 

825A0000 

00000000 

FE5C735A 

DPE1: 

DW 

DW 

DW 

XLT1,0000H 

0000H,0000H 

DIRBUF.DPBl 

CSV1,ALV1 


5A4F 

CC5DAD5D 


DW 


5A53 

5A57 

5A5B 

5A5F 

825AD000 

00000000 

FE5C735A 

FB5DDC5D 

DPE2: 

DW 

EW 

DW 

DW 

XLT2,0000H 

000QH,0000H 

DIRBUF,DPB2 

CSV2 ,ALV2 


5A63 

5A67 

825A0000 

00000000 

DPE3: 

DW 

DW 

XLT3/0000H 
0000H,0000H 

i 
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5A6B FE5C735A DW DIRBUF,DPB3 

5A6F 2A5E0B5E DW CSV3,ALV3 

•THE FOLLOWING DESCRIBES THE DISK PHYSICAL 
;NATURE, SUCH AS SECTORS/TRACK,DIRECTORY SIZE. 


5A73 

= 

DPB0 

BQU 

$ 

ONE OF 4 DISK PARM. BLOCKS 

5A73 

1A00 


DW 

26 

SECTORS/TRACK 

5A75 

03 


DB 

3 

BLOCK SHIFT 

5A76 

07 


DB 

7 

BLOCK MASK 

5A77 

00 


DB 

0 

EXTNT MASK 

5A78 

F200 


DW 

242 

DISK SIZE - 1 

5A7A 

3F00 


EW 

63 

DIRECTORY MAX. 

5A7C 

CO 


DB 

192 

ALLOCO 

5A7D 

00 


DB 

0 

ALLOC1 

5A7E 

1000 


DW 

16 

CHECK SIZE 

5A80 

0200 


DW 

2 

NUMBER OF SYSTEM TRACKS 



•SECTOR 

TRANSLATION TABLE 


5A82 

= 

&LT0 

d§ 

$ 

•START OF TRANS. TABLE 

5A82 

01070D1319 

1,7,13,19,25 

5,11,17,23,3 

9,15,21,2,8 

14,20,26,6,12 

18,24,4,10,16,22 


5A87 

050B111703 

DB 


5A8C 

090F150208 

DB 


5A91 

0E141A060C 

DB 


5A96 

1218040A1C 


DB 


5A73 

rr 

DPB1 

mu 

DPB0 

i EQUIVALENT PARAMETERS 
rSAME TRANSLATE TABLE 

5A82 

=2 

XLTI 


XL TO ; 

5A73 

- 

DPB2 

BQU 

DPB0 


5A82 

= 

XLT2 

BQU 

XL TO 


5A73 

= 

DPB3 

BQU 

DPB0 


5A82 

2= 

XLT3 

BQU 

XLT0 



*** 33 ** 


; BOOT 

; THIS SECTION IS EXECUTED WHENEVER RESET AND RUN 
; IS PUSHED, AFTER THE COLDSTART LOADER READS IN 
; THE CPM SYSTEM. 

5A9C 318000 BOOT: LXI SP,80H ;SET STACK POINTER. 

IF INTRP ;IF INTERRUPTS ALLOWED, 

El ;ENABLE THEM HERE. 

ENDIF 

IF STD ;IF STANDARD I/O, 

5A9F 00000000 DW 0,0 ;LEAVE SPACE FOR INIT. 

5AA3 00000000 EW 0,0 

5AA7 00000000 DW 0,0 

5AAB 00000000 DW 0,0 

ENDIF 

IF MS102 ;IF HITS 2SIO, 

MVI A,3 ,• INITIALIZE 2SIO. 

OUT CCOM 
OUT LCOM 
MVI A.11H 
OUT CCOM 
OUT LCOM 
ENDIF 


IF TARDEL OR ISI02 
LXI H,IOINIT 
MVI B, 4 
INITIO: MOV A,M 
OUT CCOM 
OUT LCOM 
INX H 
DCR B 
JNZ INITIO 
ENDIF 


POINT TO 8251 BYTE TABLE. 
THERE ARE 4 OF THEM. 

GET A BYTE FROM TABLE. 
OUT CONSOLE COMMAND PORT. 
OUT LIST COMMAND PORT. 
POINT TO NEXT BYTE. 
DECREASE COUHT. 

LOOP TILL DONE. 


IF TIMER AND TARBELL :IF USING TARBELL CPU 
MVI A, CNTRO+RLWOREH-MODE2+BINARY ;INIT 8253 

OUT TCMND ;SEND IT TO COMMAND PORT 

LXI B, 33333 ;TIME CCNSTANT FOR 60 HZ 
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M07 
OUT 

A,C 

TCHO 

;LS BYTE CF COUNT 




MOT 

OUT 

A,B 

TCHO 

?MS BYTE OF COUNT 




ENDIF 





IF 

TUART 

IF CRCMEMCO TUART, 




MVI 

A,1 

SET A = 1. 




OUT 

54H 

SELECT DEVICE A. 




OUT 

52H 

RESET DEVICE B. 




LXI 

H,BAUDRS 

GET ADR CF BAUD RATE TABLE. 




MVI 

A.11H 

02H 

OCTUPLE THE CLOCK. 



IT1: 

OUT 

& RESET CURRENT DEV. 




MOT 

A,M 

GET BAUD RATE FRCM TABLE. 




INX 

H 

INCREMENT POINTER. 




OUT 

0 

SET BAUD RATE. 




CALL 

CON IN 

READ KEYBOARD. 




CALL 

CON IN 

READ KEYBOARD AGAIN. 




CPI 

ODH 

IF NOT CARRIAGE-RETURN, 




MVI 

M 

SLOW THE CLOCK. 




JNZ 

UNTIL A CARRIAGE-RETURN. 




ENDIF 





IF 

SCLOS 

;IF PROC TECH SCLOS, 




CALL CLRSCR 

ENDIF 

CLEAR SCREEN. 

5AAF 

AF 


XRA 

A 

; CL EAR SCRATCH AREA. 

5 ABO 

320300 


STA 

ICBYTE 

; CLEAR I/O BYTE. 

5AB3 

320400 


STA 

CDISK 

SELECT DRIVE ZERO 

5AB6 

0E08 


MVI 

C,ENDZ-STARTZ ;GET LENGTH OF ZERO AREA. 

5AB8 

21F25C 


LXI 

H,STARTZ 

GET SCRATCH ADDRESS. 

5ABB 

77 

BOOTL: 

MOT 

M,A 

PUT ZERO IN MEMORY. 

5ABC 

23 


INX 

H 

INCREMENT POINTER. 

5ABD 

OD 


DCR 

C 

DECREMENT COUNTER. 

5ABE 

C2BB5A 


JNZ 

BOOTL 

LOOP TILL DONE. 

5AC1 

3EF2 


MVI 

A.0F2H 

LATCH 

SET LATCH CODE = F2. 

5AC3 

32FC5C 


STA 


5AC6 

DB01 


IN 

CDATA 

; CL EAR CONSOLE STATUS. 

5AC8 

21B65C 


LXI 

H.SMSG 

PMSG 

?PRINT OPENING MESSAGE. 

5ACB 

CDA45C 


CALL 




; SET UP JUMPS INTO CP/M IN LOWER MEMORY. 

5ACE 

3EC3 

IeTUP: 

MVI 

A,0C3H 

;PUT JMP TO WBOOT 

5AD0 

320000 


STA 

0 

?ADR AT ZERO. 

5AD3 

21035A 


LXI 

H,WBOCTE 


5AD6 

5AD9 

128188 


SiLD 

STA 

1 

5 


5ADC 

2106 4C 


LXI 

H,BDOS 

;PUT JUMP TO BDOS 

5ADF 

220600 


SHLD 

6 

?AT ADR 5,6,7. 

5AE2 

21 8000 


LXI 

H,80H 

?SET DEFAULT EMA ADR. 

5AE5 

22F05C 


SHLD 

DMAADD 


5AE8 

3AO400 


LDA 

CDISK 

GET CURRENT DISK 

5AEB 

4F 


MOT 

C/A 

CPfB 

PASS IT TO CCP IN REG C. 

5AEC 

C30044 


JMP 

JUMP TO CCP. 




IF 

TARDEL OR ISI02 



IOINIT: 

DB 

0AAH,040H,0CEH,037H 




ENDIF 





IF 

TUART 

;IF CRCMEMCO TUART, 



RALJDRS: 

DB 

94H,0CEH,0A2H,92H,88H,84H,82H,1 



• 

ENDIF 




; WARM-BOOT: 

READ CCP BACK INTO MEMORY. 



; BDOS 

AND BIOS ASSUMED STILL IN MEMORY. 

5AEF 

318000 

feOOT: 

LXI 

SP r 80H 

;SET STACK POINTER. 




IF 

INTRP 

;IF INTERRUPTS ALLOWED, 




El 


;ALLOW THEM HERE. 




ENDIF 





IF 

LSTPAG 

;IF LIST DEVICE PAGING, 




XRA 

A 

; RESET LINE-FEED COUNT. 




STA 

LFCNT 





ENDIF 


5AF2 

OEOO 


MVI 

C,0 

SELECT DISK ZERO. 
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5AF4 

5AF7 

5AFA 

5AFD 

5AFF 

CD435B 

CD7B5B 

C2185B 

0611 

0E02 


CALL SELDSK 

CALL HOME 

JNZ RDERR 

MVT B,NSECTS 
mi C,2 

;MOVE TO TRACK ZERO. 

/IF ERROR, PRINT MESSAGE. 
;GET # SECTORS FOR CPM READ 
;TRACK (B) =0, SECTOR (0=2. 




IF INTRP 

DI 

ENDIF 

;IF INTERRUPTS ALLOWED, 
;DISABLE THEM HERE. 

5B01 

5B04 

5B07 

5B0A 

5B0D 

5B10 

5EL1 

5EL2 

210044 

22F05C 

CDCB5B 

CDFD5B 

C2185B 

OC 

05 

C2045B 

RBLK1: 

LXI H,CPMB 

SHLD DMAADD 

CALL SETSEC 

CALL READ 

JNZ RDERR 

INR C 

DCR B 

JNZ RBLK1 

;GET STARTING ADDRESS. 

;SET STARTING ADDRESS. 

;READ STARTING AT SECTOR IN 
;READ SYSTEM SECTORS. 

;IF ERROR, PRINT MESSAGE. 
/INCREMENT SECTOR NUMBER. 
/DECREMENT SECTOR COUNT. 
/NOT ZERO, KEEP READING. 




IF INTRP 

El 

ENDIF 

/IF INTERRUPTS ALLOWED, 
/ALLOW THEM AGAIN HERE. 

5B15 

C3CESA 


JMP SEUJP 

/SET UP JUMPS. 

5B18 
5B1A 
5 BID 
5B20 

0E42 

CD385B 

CD2C5B 

C3EF5A 

fe)ERR: 

mi c,'B' 

CALL CONOT 

CALL CCNIN 

JMP WBOOT 

/GET BOOT ERROR CODE. 

/PRINT IT. 

/READ A CHAR FRCM CONSOLE. 
/DO A WARM BOOT. 



; CHECK 

CONSOLE INPUT STATUS. 

5B23 

5B25 

5B27 

DBOO 

B601 

3E00 

tONST: 

COTST1: 

IN CSTAT 

ANI CKBR 

MVI A,0 

/READ CONSOLE STATUS. 

/LOCK AT KB READY BIT. 

/SET A=0 FOR RETURN. 

5B29 

CO 


IF RDYLO 

RNZ 

ENDIF 

/IF STATUS READY LOT, 

/NOT READY WHEN NOT 0. 




IF RDYHI 

Idif 

/IF STATUS READY HIGH, 

/NOT READY WHEN ZERO. 

5B2A 2F 

5B2B C9 


CMA 

RET 

/IF READY A=FF. 

/RETURN FROM COTST. 



; READ A CHARACTER FRCM 

CONSOLE. 

5B2C 

5B2E 

DBOO 

E601 

tONIN: 

IF NOT SOLOS 

IN CSTAT 

ANI CKBR 

ENDIF 

/IF NOT PROC TECH SCLOS, 
/READ CONSOLE STATUS. 

/IF NOT READY, 




IF SCLOS 

CALL KBD 

JZ COTIN 

ENDIF 

/IF PROC TECH SCLOS, 

/READ SCL KEYBOARD. 

/READY WHEN NOT ZERO. 

5B30 

C22C5B 


IF RDYLO AND NOT SCLOS 

JNZ COTIN ;LOOP UNTIL LOW. 

ENDIF 




IF RDYHI 

JZ COTIN 

ENDIF 

/IF READY WHEN HIGH, 

/LOOP UNTIL HIGH. 

5B33 

DB01 


IF NOT SCLOS 

IN CDATA 

ENDIF 

/IF NOT PROC TECH SCLOS, 
/READ A CHARACTER. 

5B35 

5B37 

E67F 

C9 


ANI 7FH 

RET 

/MAKE MOST SIG. BIT 
/RETURN FRCM COTIN. 



/ WRITE 

A CHARACTER TO 

THE CONSOLE DEVICE. 



60 NOT: 

IF COTUL 

MVI A,0DH 

/IF NULLS REQUIRED, 
•IF IT'S A CR, 
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CMP C 

;IHEN HOP OUT 


JZ CONULL 
ENDIF 

CONOTL: 

;TO NULL ROUTINE. 


IF NOT SOLOS 

AND NOT VIDEO 

5B38 DB00 

IN CSTAT 

,*READ CONSOLE STATUS. 

5B3A E680 

ANI CPTR 
ENDIF 

;IF NOT READY, 


IF RDYLO AND 

NOT SOLOS AND NOT VIDEO 

5B3C C2385B 

JNZ CONOTL 
ENDIF 

;LOOP UNTIL LOT. 


IF RDYHI 

;IF READY WHEN HIGH, 


JZ CONOTL 
ENDIF 

;LOOP UNTIL HIGH. 


IF NOT SOLOS 

AND NOT VIDEO 

5B3F 79 

MOV A,C 

CUT CDATA 

;GET CHARACTER. 

5B40 D301 

;PRINT IT. 

5B42 C9 

RET 

ENDIF 

;RETURN. 


THIS ROUTINE CALLES YOUR VIDEO DRIVER ROUTINE WHICH 
MUST BE IN ROM. ALL REGISTERS MUST BE SAVED AND RESTORED 
BY YOUR VIDEO DRIVER IN ORDER TO BE COMPATLABLE WITH CM. 
CPM PASSES THE CHAR. TO BE OUTPUT IN THE C REGISTER. 

MAKE ANY CHANGES IN THIS ROUTINE TO PASS THE CHAR FROM 
REG C TO THE REGISTER YOUR VIDEO DRIVER EXPECTS IT TO BE IN. 


CONULL: 

CGNULL: 


IF VIDEO 
MOV A.C 
CALL OUTADDR 
RET 
ENDIF 

IF CONUL 
PUSH B 


MVI 

CALL 

B,CNULLfl 

CONOTL 

MVI 

C,0 

DCR 

B 

JNZ 

CONUL1 

POP 

B 

MOV 

A,C 

RET 

ENDIF 

IF 

SOLOS 

PUSH 

B 

MOV 

CALL 

BTO 

SCRN 

POP 

B 

MOV 

A,C 

RET 

ENDIF 


;IF USING A VIDEO DRIVER IN ROM. 
;GET THE CM CHAR INTO REG A 
;CALL YOUR VIDEO DRIVER. 

? RETURN TO CM. 


;SAVE B&C. 

;GET NULL COUNT. 

; PRINT CR. 

;GET NULL CHAR. 

;DECREMENT COUNTER. 
;DO NEXT NULL. 

;RESTORE B&C. 

; RESTORE A. 

; RETURN. 


;IF PROC TECH SOLOS, 
;SAVE B&C. 

;FUT CHAR IN B REG. 

;OUTPUT CHAR TO SOLOS. 
;RESTORE B&C. 

;PUT CHAR IN A. 

; RETURN FROM CONOT. 


SELECT DISK NUMBER ACCORDING TO REGISTER C. 


5B43 210000 

§ELDSK: LXI 

H,0 

5B46 79 

MOV 

A,C 

5B47 FE04 

CPI 

NDISK 

5B49 DO 

PNC 


5B4A 21F25C 

LXI 

H,DISKNO 

5B4D 7E 

MOV 

A,M 


IF 

DUAL 


ANI 

0FEH 


ENDIF 

5B4E 5F 

MOV 

E,A 

5B4F 1600 

MVI 

D,0 

5B51 21F65C 

LXI 

H,TRTAB 

5B54 E5 

PUSH 

H 

5B55 19 

DAD 

D 

5B56 DBF9 

m 

TRACK 

5B58 77 

MOV 

M,A 

5B59 79 

MOV 

A,C 


IF 

DUAL 


;SET UP FOR ERROR CODE 
;GET NEW DRIVE. 

;CALLING UNDEFINED DRIVE ? 
;IF NO CY, H,L TELLS CM YES. 
;GET OLD DRIVE NUMBER. 

;GET OLD DISK NUMBER. 

;IF DUAL DRIVE, 

;CLEAR OUT BIT 0. 


;PUT OLD DISK NO. IN D&E. 

;GET ADDRESS OF TRACK TABLE. 
;SAVE ADDRESS OF TRTAB. 

;ADD DISK NO. TO ADDRESS. 
;READ 1771 TRACK REGISTER. 
;PUT INTO TABLE. 

;GET NEW DISK NUMBER. 

;IF A EUAL DRIVE, 
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ANI 

OFEH ; 

CLEAR BIT 0. 




ENDIF 


5B5A 

5F 


MOV 

E,A 

■PUT NEW DISK NO. IN D&E. 

5B5B 

El 


POP 

H 

•RESTORE ADDRESS OF TRTAB. 

5B5C 

19 


DAD 

D 

•ADD DISK NO. TO ADDRESS. 

5B5D 

7E 


MOV 

A,M 

•GET NEW TRACK NUMBER. 

5B5E 

D3F9 


OUT 

TRACK 

•PUT INTO 1771 TRACK REG. 

5B60 

79 


rw 

A,C 

UPDATE OLD DISK NUMBER. 

5B61 

32F25C 


STA 

DISKNO 


5B64 

2F 


CMA 


iBITS INVERTED INTO LATCH. 

5B65 

87 


ADD 

A 

•PUT BITS 1&2 AT 4&5. 

5B66 

87 


ADD 

A 


5B67 

87 


ADD 

A 


5B68 

87 


ADD 

A 


5B69 

F602 


ORI 

2 

MAKE LATCH COMMAND. 

5B6B 

32FC5C 


STA 

LATCH ; 

•SAVE NEW LATCH CODE. 



'•SELECT DRIVE AS A FUNCTION OF H,L 

5B6E 

2AF25C 

r 

LHLD 

DISKNO 

;LQAD DISK NUMBER AND ZERO BYTE 

5B71 

11335A 


LXI 

D,DPBASE 

;POINT TO DISK PARM START. 

5E7 4 

29 


DAD 

H 

;*2 

5B75 

29 


DAD 

H 

. 

5B76 

29 


DAD 

H 

• *8 

5B77 

29 


DAD 

H 

; *16 

5B78 

19 


DAD 

D 

; COMPUTE INDEX FOR THE DRIVE 

5B79 

AF 


XRA 

A j 

•SET A = 0. 

5B7A 

C9 


RET 

- 

•RETURN FROM SELDSK. 



; MOVE 

DISK TO TRACK ZERO. 

5B7B 

0E00 

HOME: 

MVI 

C,0 ; 

•SEEK TO TRACK ZERO. 



; SET TRACK NUMBER TO WHATEVER IS IN REGISTER C. 



; ALSO 

PERFORM MOVE TO THE CORRECT TRACK (SEEK) . 



SETTRK: 







IF NOT DUBSID ; 

•IF NOT DOUBLE-SIDED, 

5B7D 

E5 


RJSH 

H 

(SAVE H&L. 

5B7E 

2AFC5C 


LHLD 

LATCH 

(GET NEW & OLD LATCH. 

5B81 

7D 


MOV 

A,L 

DCONT 

(GET NEW LATCH. 

5B82 

D3FC 


OUT 

SELECT DRIVE NOW. 

5B84 

32FD5C 


STA 

CLATCH 

REMEMBER CURRENT LATCH. 

5B87 

BC 


CMP 

H 

(IS NEW SAME AS CLD? 

5B88 

3EFF 


MVI 

A,0FFH 

;IF NOT, SET FLAB = FF. 

5B8A 

C28E5B 


JNZ 

SFLAB 


5B8D 

5B8E 

2F 

32F45C 

SFLAB: 

CMA 

STA 

HLSF 

(IF NEW = OLD, FLAB = 0. 

•SET HEAD-LQAD/SELECT FLAB. 

5B91 

El 


POP 

H ;RESTORE H&L. 




ENDIF 


5B92 

79 


MCV 

A,C ;GET NEW TRACK NUMBER. 




IF 

DUBSID 

•IF DOUBLE-SIDED DISK, 




RRC 


SHIFT RIGHT CNCE. 




PUSH 

PSW 

(SAVE REVISED TRACK NUMBER. 




PUSH 

H 

(SAVE H&L. 




LHLD LATCH 

(GET NEW & OLD LATCH. 




mov 

A,L 

SIDE2 

(PUT NEW LATCH IN A. 




JC 

(IF TRACK # ODD, SIDE #2. 

(CLEAR LATCH BIT FOR SIDE 1. 




ORI 

40H 




JMP 

SETLAT 

(GO AHEAD AND SET LATCH. 



SIDE2: 

ANI 

0B2H 

(SET LATCH BIT FOR SIDE 2. 



SETLAT: 

OUT 

DCONT 

(OUTPUT TO THE LATCH. 




STA 

CLATCH 

(SET CURRENT LATCH CODE. 




XRA 

H 

(COMPARE CLD WITH NEW, 




ANI 

OBFH 

(IGNORE SIDE BIT. 




MVI 

A.OFFH 

SETFL 

(IF OLD NOT = NEW, 




JNZ 

SET FLAB = FF. 




CMA 

A 

(IF OLD = NEW, FLAB = 0. 

(SET FLAB ZERO IF SAME. 



SETFL: 

STA 

HLSF 




POP 

H 

(RESTORE H&L. 




POP 

PSW 

(RESTORE THE TRACK NUMBER. 




ANI 

7FH 

(CLEAR MSB. 




MOV 

C, A 

(SET OTRACK NUMBER. 




ENDIF 


5B93 

32EE5C 


STA 

TRK ; 

(UPDATE CLD WITH NEW. 


I. 
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; MOVE THE HEAD TO THE TRACK IN REGISTER A. 


5B96 C5 

§EEK: 

PUSH 

B 

;SAVE B&C. 

5B97 47 


MOV 

B,A 

;SAVE DESTINATION TRACK. 

5B98 3E0A 


MVI 

A,RTCNT 

;GET RETRY COUNT. 

5B9A 32FB5C 

SRETRY: 

STA 

SERCNT 

;STORE IN ERROR COUNTER. 

5B9D DBF9 


IN 

TRACK 

;READ PRESENT TRACK NO. 

5B9F B8 


CMP 

B 

;SAME AS NEW TRACK NO.? 

5BA0 C2A55B 


JNZ 

NOTHR 

;JUMP IF NOT THERE. 

5BA3 Cl 

THERE: 

POP 

B 

;RESTORE B&C. 

5BA4 C9 


RET 


;RETURN FROM SEEK. 


;THIS ROUTINE IS TO ALLOW TIME FOR- THE DRIVE 
;TUNNEL ERASE TO TERMINATE BEFORE MOVING THE 
;HEAD. THE DELAY IS APPRCK. 700 MICRO-SEC. @ 

;4 MHZ CPU TIME, AND DOUBLE THIS FOR 2 MHZ CRTS. 


5BA5 

F5 

f)OTHR: 

PUSH 

PSW 

•SAVE ACCUM 

5BA6 

3 EDO 


MVI 

A, 0D0H 

•DELAY COUNT = 208 

5BA8 

3D 

BUSY1: 

DCR 

A 

•DECREASE COUNT 

5BA9 

C2A85B 


JNZ 

BUSY1 

LOOP TILL DONE 

5BAC 

FI 


POP 

PSW 

•RESTORE ACCUM 




IF NOT PERSCI : 

•IF NOT PERSCI DRIVE, 

5BAD 

78 


MOV 

A,B 

RESTORE A FROM B. 

5BAE 

D3FB 


OUT 

DDATA 

TRACK TO DATA REGISTER. 

5BB0 

3E16 


MVI 

A, 14H+STPRAT+HLAB ;GET STEP RATE, DO 

5BB2 

D3F8 


CUT 

DCOM ; 

rSEEK WITH VERIFY. 

5BB4 

DBFC 


IN 

WAIT i 

•WAIT FOR INTRQ. 

5BB6 

DBF8 


IN 

DSTAT 

READ STATUS. 

5BB8 

E691 


ANI 

91H 

rLOCK AT BITS. 

5BBA CAA35B 


JZ 

THERE 

rOK IF ZERO. 




ENDIF 





IF 

PERSCI 

:IF PERSCI DRIVE, 




MVI 

A,40HH-HLAB 

;IF CARRY = 1, 




JC 

SDIR 

rSTEP IN. 




MVI 

A,60H+HLAB 

; OTHERWISE, OUT. 



SDIR: 

OUT 

DCOM 

ISSUE STEP DIRECTION. 




MVI 

A, 20 

•DELAY LOOP COUNT. 



DLOOP: 

DCR 

A 

?DECREMENT COUNTER. 




JNZ 

DLOOP 





MOV 

A,C 

GET PRESENT TRACK. 




SUB 

B 

FIGURE TRACKS TO STEP. 




JP 

STEP 

IF NEGATIVE, 




CMA 


FIGURE THE 




INR 

A 

TWO'S COMPLEMENT. 



STEP: 

MOV 

C, A 

GET DIFFERENCE. 




MVI 

A,1 

PERSCI STEP COMMAND. 



STEP1: 

OUT 

DCONT 

STEP PERSCI (E-14). 




DCR 

C 

COUNT THE STEP. 




JNZ 

STEP1 

STEP UNTIL C=0. 




IN 

WAIT 

CLEAR 1771. 




IN 

DSTAT 





MOV 

A,B 

rGET DEST. TRACK. 




OUT 

TRACK 

UPDATE TRACK REG. 




LDA 

CLATCH 

RET LATCH CODE. 




ANI 

72H 

;MAKE COMMAND TO 




OUT 

DCONT 

; SWITCH WAIT FOR 




IN 

WAIT 

REEK COMPLETE. 




LDA 

CLATCH 

RESTORE LATCH TO 




OUT 

DCONT 

RLD CODE. 




XRA 

A 

rMAKE GOOD RETURN. 




POP 

B 

RESTORE B&C. 




RET 






ENDIF 





IF NOT PERSCI 

?IF NOT PERSCI DRIVE, 

5BBD 

3AFB5C 


LDA 

SERCNT 

RET ERROR COUNT. 

5BC0 

3D 


DCR 

A 

; DECREMENT COUNT. 

5BC1 

C29A5B 


JNZ 

SRETRY 

?RETRY SEEK. 

5BC4 

Cl 


POP 

B 

?RESTORE B&C. 

5BC5 

CD245C 


CALL RECOV 

?IF SEEK RETRY = 10 CHECK 

5BC8 

C3965B 


JMP 

SEEK 

; FOR CNTL-C FOR ABORT. 




ENDIF ' 



; SEH? DISK SECTOR NUMBER. 

5 BOB 79 SETS EC: MOV A,C ;GET SECTOR NUMBER. 

5BCC 32EF5C STA jSECT ;PUT AT SECT # ADDRESS. 
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5BCF C9 


RET 


;RETURN FROM SETSEC. 


;TRANSLATE THE SECTOR GIVEN B,C USING THE 
;TRANSLATE TABLE GIVEN BY D, E 


5BD0 EB 

&ECTRAN:XCHG 

;H,L = TRANS 

5BD1 09 

DAD B 

;H,L = TRANS 

5BD2 6E 

MOV L,M 

;L = TRANS 

5BD3 2600 

MVI H,0 

; CL EAR REG H 

5BD5 C9 

RET 

;H,L = TRANSI 


; SET DISK DMA ADDRESS. 


5BD6 60 

&ETDMA: MOV H,B 

;MOVE B&C TO H&L. 

5BD7 69 

MOV L,C 


5BD8 22F05C 

SHLD DMAADD 

;PUT AT DMA ADR ADDR] 

5BDB C9 

RET 

;RETURN FROM SETDMA. 


; HDLD - GET HEAD-LOAD BIT IF REQUIRED. 

5BDC 3AF45C 

k)LD: LDA HLSF 

;GET HEAD-LOAD FLAG. 

5BDF B7 

ORA A 

;IS A = ZERO? 

5BE0 CAF45B 

JZ HDLD1 

;HOP IF SO. 

5BE3 2F 

CMA 

;SET A = 0. 

5BE4 32F45C 

STA HLSF 

;SET FLAG = 0 IF NOT, 


5BE7 DBF9 

/ 

IN 

5BE9 D3FB 


OUT 

5BEB 3E16 


MVI 

5BED D3F8 


OUT 

5BEF DBFC 


IN 

5BF1 3E04 

HDLDY: 

MVI 

5BF3 C9 


RET 

5BF4 DBF8 

HDLD1: 

IN 

5BF6 E620 


ANI 

5BF8 CAF15B 


JZ 

5BFB AF 


XRA 

5BFC C9 


RET 


5C24 21AF5C 
5C27 CDA45C 
5C2A CD2C5B 
5C2D FE03 


;IF CHANGING TO A NEW DRIVE, PERFORM A SEEK TO 
;THE SAME TRACK TO ALLCW THE HEAD TO UNLOAD. 

TRACK ;GET PRESENT TRACK 

DDATA ;AND TELL 1771 ABOUT IT. 

A, 14H+-STPRAT4-HLAB ;GET THE STEP RATE. 
DCOM ;SEND IT TO FLOPPY CONTROLLER. 

WAIT ;WAIT FOR INTRQ. 

A,4 ;SET BIT TO LOAD HEAD. 

; RETURN FROM HDLD. 

DSTAT ;READ 1771 STATUS. 

20H ;LOCK AT HL BIT. 

HDLDY ;LOAD IF NOT LOADED. 

A ;OTHERWISE, A=0. 

;RETURN FROM HDLD. 

; READ THE SECTOR AT SECT, FROM THE PRESENT TRACK. 

; USE STARTING ADDRESS AT DMAADD. 

;GET RETRY COUNT. 

;SET UP DISK. 

;ADD CODE FOR READ SECT. 

;SEM) COMMAND TO 1771. 

;WAIT FOR DRQ OR INTRQ. 

;SET FLAGS. 

;DCNE IF INTRQ. 

;READ A DATA BYTE FROM DISK. 
;PUT BYTE INTO MEMORY. 

; INCREMENT MEMORY POINTER. 
;KEEP READING. 

;READ DISK STATUS. 

;IF INTERRUPTS ALLOWED, 

;ALLOW AGAIN HERE. 


;LOCK AT ERROR BITS. 

;RETURN IF NONE. 

;CHECK FOR SEEK ERROR. 

;TRY TO READ AGAIN. 

;CHECK FOR ABORT OR CONTINUE 
;IF NOT CNTL-C, TRY TO READ AGAIN. 

RECCV 


5BFD 3E0A 

READ: 

MVI 

A,RTCNT 

5BFF CD695C 

RRETRY: 

CALL DSKSET 

5C02 C688 


ADI 

88 H 

5C04 D3F8 

READE: 

OUT 

DCOM 

5C06 DBFC 

RLOOP: 

IN 

WAIT 

5C08 B7 


ORA 

A 

5C09 F2135C 


JP 

RDDONE 

5C0C DBFB 


IN 

DDATA 

5C0E 77 


MOV 

M,A 

5C0F 23 


ENX 

H 

5C10 C3065C 


JMP 

RLOOP 

5C13 DBF8 

RDDONE: 

IN 

DSTAT 



IF INTRP 



El 




ENDIF 

5C15 E69D 


ANI 

9DH 

5C17 C8 


RZ 


5C18 CD335C 


CALL 

ERCHK 

5C1B C2FF5B 


JNZ 

RRETRY 

5C1E CD245C 


CALL 

RECOV 

5C21 C3FD5B 


JMP 

READ 


FOR A KEY TO BE PUSHED. IF THE KEY' IS A CNTL-C, THEN A WARMBOOT 
IS EXECUTED. IF ANY OTHER KEY IS PUSHED, THEN A RETURN IS MADE 
BACK TO THE CALLER AND THAT ROUTINE IS RETRIED FOR 10 MORE TIMES. 


RECOV: LXI H,ERRMSG 
CALL PMSG 
CALL CON IN 
CPI 03H 


;POINT TO "ERROR" MESSAGE. 
;PRINT IT ON CONSOL. 

;CHECK FOR HJSHED KEY. 

;IS IT A CNTL-C ? 
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5C2F CO 
5C30 C3EF5A 


5C33 E610 
5C35 C23D5C 
5C38 3AFA5C 
5C3B 3D 
5C3C C9 


5C3D 

5C3F 

5C41 

5C43 

5C45 

5C46 

5C48 

5C49 

5C4C 

5C4E 

5C51 

5C53 

5C54 

5C57 

5C5A 

5C5D 

5C5E 

5C60 

5C63 

5C66 


3EC4 

D3F8 

DBFC 

DBFB 

47 

DBFC 

B7 

F2515C 

DBFB 

C3465C 

DBF8 

B7 

CA5D5C 

CD7B5B 

C3605C 

78 

D3F9 

3AEE5C 

CD965B 

C3385C 


5C69 32FA5C 
5C6C 3EDO 
5C6E KJF8 
5C70 E3 
5C71 E3 


5C72 2AF05C 
5C75 3AEF5C 
5C78 D3FA 
5C7A C3DC5B 


RNZ ; RETURN TO CALLER IF NOT. 

JMP WBOOT ;YES, DO WARMBOOT. 

♦ 

; ERCHK - CHECK FOR RECORD NOT FOUND ERROR. 

;IF RECORD NOT FOUND, 

;DO A CHECK ON SEEK. 

;GET ALLOWED ERROR COUNT 


fjRCHK: 

ANI 

10H 


JNZ 

CHKSK 

CHKOK: 

LDA 

ERCNT 


DCR 

A 


RET 



;CHECK 
&KSK: 


CHKS2: 

CHKS3: 

CHKS4: 

CHKS5: 


;AND RETURN. 

FOR SEEK TO CORRECT TRACK, AND CHANGE IF NECESSARY. 


MVI A,0C4H 
OUT DCOM 
IN WAIT 
IN DDATA 
M07 B,A 
IN WAIT 
ORA A 
JP CHKS3 
IN DDATA 
JMP CHKS2 
IN DSTAT 
ORA A 
JZ CHKS4 
CALL HOME 
JMP CHKS5 
MW A,B 
OUT TRACK 
LDA IRK 
CALL SEEK 
JMP CHKOK 


;SEND COMMAND TO 1771 
;T0 READ ADDRESS. 

;WAIT FOR DRQ OR INTRQ. 
;READ THE TRACK ADDRESS. 
;SAVE IN REGISTER B. 
;WAIT FOR INTRQ. 

;SET FLAGS. 

;DONE WITH READ ADR OP. 
;READ ANOTHER BYTE. 

;D0 IT AGAIN. 

;READ DISK STATUS. 

;SET FLAGS. 

;READ ADR CK IF 0. 

;OTHERWISE, HOME FIRST. 

;UPDATE TRACK REGISTER. 

;GET REQUIRED TRACK NO. 
;MOVE THE HEAD TO IT. 


DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 
READ AND WRITE ROUTINES. 


f)SKSET: STA ERCNT 
MVI A.ODOH 
OUT DCOM 
XTHL 
XTHL 

IF INTRP 
DI 

ENDIF 

LHLD DMAADD 
LDA SECT 
OUT SECTP 
JMP HDLD 


; STORE IN ERROR CTR. 

;CAUSE INTERRUPT. 

;S0ME 
; DELAY 

;IF INTERRUPTS ALLOWED, 
;DISABLE THEM HERE. 


GET STARTING ADDR. 
GET SECTOR NUMBER. 
SET SECTOR INTO 1771. 
GET HEAD-LOAD BIT? 


? WRITE THE SECTOR AT SECT, ON THE PRESENT TRACK. 
; USE STARTING ADDRESS AT DMAADD. 


5C7D 

3E0A 

tf/RITE: 

MVI 

A.RTCNT 

DSKSET 

;GET RETRY COUNT. 

5C7F 

CD695C 

WRETRY: 

CALL 

;SET UP DISK. 

5C82 

C6A8 


ADI 

0A8H 

;ADD CCDE FOR WRITE. 

5C84 

D3F8 

WRITE2: 

OUT 

DCOM 


5C86 

DBFC 

WLOOP: 

IN 

WAIT 

;WAIT FOR READY. 

5C88 

B7 


ORA 

A 

;SET FLAGS. 

5C89 

F2935C 


JP 

WDONE 

;HOP OUT WHEN DONE. 

5C8C 

7E 


MW 

A,M 

DDATA 

;GET BYTE FROM MEM. 

5C8D 

D3FB 


OUT 

;WRITE ONTO DISK. 

5C8F 

23 


INX 

H 

; INCREMENT MEM PTR. 

5C90 

C3865C 


JMP 

WLOOP 

;KEEP WRITING. 

5C93 

DBF8 

WDONE: 

IN 

DSTAT 

;READ DISK STATUS. 




IF INTRP 

;IF INTERRUPTS ALLOWED, 




El 


;ENABLE AGAIN HERE. 




ENDIF 


5C95 

E6FD 


ANI 

OFDH 

;LOOK AT THESE BITS. 

5C97 

C8 


RZ 


;RETURN IF NO ERR. 

5C98 

CD335C 


CALL 

ERCHK 

;CHECK/CORRECT SEEK ERR 
;TRY TO WRITE AGAIN. 

5C9B 

C27F5C 


JNZ 

WRETRY 

5C9E 

CD245C 


CALL 

RECW 

;CHECK FOR ABORT 

5CA1 

C37D5C 


JMP 

WRITE 

;RETRY WRITE AGAIN. 


PRINT THE MESSAGE AT H&L UNTIL A ZERO. 
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5CA4 7E £msG: MCV A,M ;GET A CHARACTER. 

5CA5 B7 ORA A ;IF IT'S ZERO, 

5CA6 C8 RZ , ;RETURN. 

5CA7 4F MW C,A ' ;OTHERWISE, 

5CA8 CD385B CALL CONOT : ; PRINT IT. 

5CAB 23 INX H ;INCREMENT H&L, 

5CAC C3A45C JMP PMSG ;AND GET ANOTHER. 

# 

; CBIOS MESSAGES * 

5CAF 4552524F52feRRMSG: DB 'ERROR.'.0 

5CB6 0D0A5 4617 2SMSG: DB ODH,OAH,’Tarbell ' 

5CC0 3234 DB MSIZE/IO+'O',MSIZE MOD 10 + 'O' 

5CC2 4B2043504D IB 'K Cm 2.2 of 7-16-80',0 

•LIST STATUS CHECK ROUTINE 


5CD7 CDDF5C 
5CDA 3E00 

fesTAT: CALL PSTAT 

MVI A,0 

;CHECK PRINTER 
; RETURN STATUS 

STATUS PORT. 
ACTIVITY. 

5CDC CO 

IF TARDEL OR 
RNZ 

ENDIF 

RDYLO 



IF NOT TARDEL 
RZ 

ENDIF 

AND RDYHI 


5CDD 2F 

CMA 

;INVERT IT 



; PUNCH AND READER ARE NOT SUPPORTED. 
RJNCH: 

5CDE C9 READER: RET 

•PSTAT - PRINTER STATUS CHECK ROUTINE. 


5CDF 

DB02 

PSTAT: 

IN LSTAT 

;READ PRINTER STATUS PORT. 



7 

IF NOT TARDEL 


5CE1 

E680 


ANI LRBIT 

ENDIF 




7 

IF TARDEL 

ANI 81H 

XRI 81H 

;MASK READY BITS 




ENDIF 


5CE3 

C9 

7 

RET 

; RETURN TO CALLER 


; WRITE A CHARACTER ON LISTING DEVICE. 
filST: 




IF LSTNUL 

MVI A, ODH 

CMP C 

JZ LINUL 

ENDIF 


;IF NULLS OR PAGING 
;IF IT'S A CR, 

;THEN HOP OUT TO 
;NULL ROUTINE. 


7 

IF LSTPAG 

MVI A,OAH 

CMP C 

JZ LINUL3 

MW A.C 

CPI 0CH 

RZ 

ENDIF 


;IF PAGING 
;GET A LINEFEED 
;DOES IT MATCH? 

5CE4 CDDF5C 

fiTBSY: 

CALL PSTAT 


;READ LISTER STATUS 

5CET7 C2E45C 

7 

IF TARDEL OR 
JNZ LTBSY 

ENDIF 

RDYLO 

;LOOP TILL LOW. 


7 

IF NOT TARDEL 
JZ LTBSY 

ENDIF 

AND RDYHI 

;LOOP TILL HIGH. 

5CEA 79 

7 

MW A,C 


;GET DATA BYTE. 
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0000 = 
FFFF = 


0018 = 
0000 = 
0000 = 
0000 = 
0000 = 
0000 = 
001A = 
00F8 = 


; TARBELL ELECTRONICS 
; CP/M COLDSTART LOADER 
; VERSION OF 7-16-80. 

; THIS BOCTSTRAP NOW SUPPORTS THE NEW TARBELL Z-80 CPU BOARD. 

; THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROGRAM, 
; AND EXECUTED. ITS PURPOSE IS TO LOAD AND EXECUTE THE CP/M DISK 
; OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. 

FALSE EQU 0 ;DEFINE VALUE OF FALSE. 

TRUE EQU NOT FALSE ;DEFINE VALUE OP TRUE. 


'.********* this IS THE AREA TO MAKE CHANGES IN ******************* 
; ********* FOR DIFFERENT SYSTEM CONFIGURATIONS ******************* 
. ** 


felZE EQU 24 ;MEMORY SIZE IN DECIMAL KB. 

TARBELL EQU FALSE ;TRUE IF USING TARBELL CPU. 

DUBSID EQU FALSE ;TRUE FOR DOUBLE SIDED SYSTEMS. 

PERSCI EQU FALSE ;TRUE FOR PERSCI DRIVES 

DELTA EQU FALSE ;TRUE IF USING DELTA CPU CARD 

BASE EQU 0 ;TARBELL I/O PORTS (00 or 10 HEX) 

SFT EQU 26 ;NUMBER OF SECTORS PER TRACK. 

DISK EQU 0F8H ;DISK PORT BASE ADDRESS. 


** 

** 

** 

** 

** 

** 

** 

** 

** 


(***************************************************************** 
/ 


IF TARBELL 

IO EQU BASE ;i/o ports on tarbell cpu. 

MMENB EQU 10+10 ;memory management enable port. 

MEMMAG EQU BASE+32 ;memory management port. 

ENDIF 


00F8 = DCOM EQU DISK ;COMMAND PORT. 

00F8 = DSTAT EQU DISK ; STATUS PORT. 

00F9 = TRACK EQU DISK+1 ; TRACK PORT. 

00FA = SECT EQU DISK+2 ; SECTOR PORT. 

00FB = DATA EQU DISK+3 ;DATA PORT. 

00FC = WAIT EQU DISK+4 ;WAIT PORT. 

00FC = DCONT EQU DISK+4 .-CONTROL PORT. 

1000 = CBASE EQU (MSIZE-20)*1024 

4400 = CPMB EQU CBASE+3400H; START OF CP/M. 

5A00 = BOCTE EQU CPMB+1600H ;COLD BOOT ENTRY POINT. 

0033 = NSECTS EQU 51 ;SECTORS OF CP/M. 

000A = RTCNT EQU 10 ;NUMBER OF RETRYS. 


0000 


BOOT: 

ORG 

0 

;START OF LOADER. 




IF 

TARBELL 

;IF USING TARBELL CPU 




OUT 

MMENB 

; ENABLE MEMORY MANAGEMENT. 




LXI 

D,1000H 

;COUNT=16, DATA BYTE = 0 




MVI 

C,MEMMAG 

AND 0FFH 



MLOOP: 

MOV 

A, E 

;GET ADDRESS VALUE 




ORA 

C 

;MAKE I/O PORT VALUE 




STA 

MOUT+1 

; MODIFY PORT ON THE FLY 




MOV 

A, E 

;GET INIT VALUE. 




CMA 


;FLIP IT FOR RAM ON CPU 



MOUT: 

OUT 

BASE 

;EUT IT TO RAM CN CPU 




INR 

E 

;BUMP DATA VALUE 




DCR 

D 

;DECREASE COUNT 




JNZ 

ML OOP 

,*LOOP 16 TIMES. 




ENDIF 





IF 

DELTA 

;IF USING DELTA PRODUCTS CPU. 




MVI 

A, 1 

;CODE TO KICK OUT ROM 




OUT 

9 





ENDIF 


0000 

1E0A 


MVI 

E,RTCNT 

;GET RETRY COUNT. 

0002 

310001 

BLOOP: 

LXI 

SP.100H 

H,CPMB 

;SET STACK POINTER. 

0005 

210044 


LXI 

;CP/M STARTS HERE. 

;NUMBER OF SECTORS TO READ. 

0008 

1633 


MVI 

D,NSECTS 

000A 

0E02 


MVI 

C,2 

;SECTOR NUMBER. 

oooc 

0604 

RNTRK: 

MVI 

B, 4 

;FOR HEAD LOAD. 

000E 

CD2900 

RNSEC: 

CALL 

READ 

;READ FIRST SECTOR. 

0011 

15 


DCR 

D 

;IF DONE, 

;GO TO CP/M. 

0012 

CA005A 


JZ 

BOCTE 
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5CEB D303 COT LDATA ; PRINT IT. 

5CED C9 RET ;RETURN FRCM LIST. 

IP LSTNUL ;IF LIST NULLS 

LINUL: FUSH B ;SAVE B&C. 

MVI B, (LMJLL AND OFFH) +1 ;GET NULL COUNT 
LINUL1: CALL LTBSY ;PRINT (CR FIRST). 

MVI C,0 ;GET NULL CHAR. 

DCR B ;DECREMENT COUNTER. 

JNZ LINUL1 ;DO NEXT NULL. 

JMP LINUL2 ;EXIT THE ROUTINE. 

ENDIF 

IF LSTPAG ;IF LIST DEV. PAGING, 

LINUL3: PUSH B ;SAVE B,C PAIR 

LDA LFCNT ;GET LINE-FEED COUNT. 

INR A ; INCREMENT IT. 

STA LFCNT ;SAVE IT BACK. 

CPI LINCNT- (LINCNT/llf ;END OF PAGE? 

MVI B,1 ;SET UP FOR 1 LF. 

JNZ NOTEOP ;HOP IF NOT END. 

XRA A ;SET LF COUNT = 0. 

STA LFCNT 

MVI B, TlINCNT/11)+1 ;BETWEEN PAGES. 

NOTEOP: MVI C,0AH ;GET LINE-FEED CODE. 

LSTPA1: CALL LTBSY ;PRINT LINE-FEED. 

DCR B ; DECREMENT LF COUNTER. 

JNZ LSTPA1 ;DO NEXT LINE FEED? 

ENDIF 


IF LSTNUL OR LSTPAG ;IF NULLS OR PAGING, 
LINUL2: POP B ;RESTORE B&C. 

MOV A,C ;RESTORE A. 

RET ;RETURN FROM LIST. 

ENDIF 


NOTE: AS THERE ARE ONLY SIX (6) SECTORS 
AVAILABLE FOR CBIOS CN THE SECOND SYSTEM TRACK (1) , 
THE LAST ADDRESS BEFORE THIS POINT SHOULD BE NO 
GREATER THAN THE CBIOS STARTING ADDRESS + 037F (HEX). 
THIS WILL NORMALLY BE XD7F (HEX). 


; BIOS SCRATCH AREA. 

5CEE feK: DS 1 ; CURRENT TRACK NUMBER. 

5CEF SECT: DS 1 ;CURRENT SECTOR NUMBER. 

5CFO DMAADD: DS 2 ;DISK TRANSFER ADDRESS. 

; THE NEXT SEVERAL BYTES, BETWEEN STARTZ AND 
; ENDZ, ARE SET TO ZERO AT COLD BOOT TIME. 

&TARTZ: ;START OF ZEROED AREA. 

5CF2 DISKNO: DS 2 ;DISK NUMBER 

# 

; SPECIAL FLAGS. 

5CF4 HLSF: DS 1 ;HEAD-LQAD SELECT FLAG. 

5CF5 LFCNT: DS 1 ;PAGING LINE-FEED COUNT. 


5CF6 


5CFA 


5CFB 


5CFC 


5CFD 
5CFE = 


5CFE 

5D7E 

5D9D 

5DAD 

5DCC 


5DDC 
5DFB 
5E0B 
5E2A 
5E3A = 
013C = 


5E3A 


; TRTAB - DISK TRACK TABLE - PRESENT POSITION CF 

; HEADS FOR UP TO 4 DRIVES. 

• 

feTAB: DS 4 

ENDZ: ;END OF ZEROED AREA. 

ERCNT: DS 1 ;ERROR COUNT FOR RETRIES. 

SERCNT: DS 1 ;SEEK RETRY COUNTER. 

LATCH: DS 1 ;NEW CODE-FOR LATCH. 

CLATCH: DS 1 ;CURRENT CODE IN LATCH. 

BEGDAT EQU $ 

DIKBUF: DS 128 ; DIRECTORY BUFFER 

ALVO: DS 31 

CSVO: DS 16 

ALV1: DS 31 

CSV1: DS 16 

ALV2: DS 31 

CSV2: DS 16 

ALV3: DS 31 

CSV3: DS 16 

ENDDAT EQU $ 

DATSIZ EDU ?-BEEDAT ;TOTAL SIZE CF DISK PARM STORAGE. 
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1 


0015 0600 


MVI 

B,0 

;FOR NO HEAD LOAD. 

0017 0C 


INR 

C 

; INCREMENT TRACK COUNT. 

0018 79 


MOV 

A/C 

SPT+1 

;DONE WITH 

0019 FE1B 


CPI 

;THIS TRACK? 

001B DAOEOO 


JC 

RNSEC 

;IF NOT, READ NEXT SECTOR. 

001E 3E53 


IF 

NOT PERSCI 

AND NOT DUBSID 


MVI 

A.53H 

DCOM 

;STEP COMMAND. 

0020 D3F8 


CUT 

;ISSUE IT. 

0022 DBFC 


IN 

WAIT 

;WAIT UNTIL DONE. 



ENDIF 




IF 

PERSCI AND NOT DUBSID 



MVI 

A, 5 OH 

DCOM 

; INCREMENT TRACK 



OUT 

; REGISTER. 



IN 

WAIT 

;WAIT FOR INTRQ. 



MVI 

d6ont 

;STEP 



OUT 

;PERSCI. 



MVI 

A, 7 2H 

econt 

;SWITCH WAIT FOR 



OUT 

;SEEK COMPLETE. 



IN 

WAIT 

;WAIT. 



MVI 

A,0F2H 

; SWITCH WAIT 



OUT 

DCONT 

;BACK. 



ENDIF 




IF 

DUBSID 

;IF DOUBLE SIDED SYSTEM. 



MVI 

A,0B2H 

dcont 

;S3DE SELECT COMMAND. 



OUT 

;ISSUE IT. 



ENDIF 


0024 0E01 


MVI 

C,1 

;SECTOR NUMBER. 

0026 C30C00 


JMP 

RNTRK 

;READ NEXT TRACK. 

0029 79 

READ: 

MOV 

A,C 

;GET SECTOR NUMBER. 

002A D3FA 


OUT 

SECT 

A,88H 

;SET SECTOR REGISTER. 

002C 3E88 


MVI 

;COMMAND FOR READ. 

002E BO 


ORA 

B 

;GET HEAD LOAD BIT. 

002F D3F8 


OUT 

DCCM 

;ISSUE COMMAND. 

0031 DBFC 

RLOOP: 

IN 

WAIT 

;WAIT FOR DRQ. 

0033 B7 


ORA 

A 

;SET FLAGS. 

0034 F23E00 


JP 

CHECK 

;JUMP IF DONE. 

0037 DBFB 


IN 

DATA 

;READ DATA. 

0039 77 


MOV 

M,A 

;PUT IN MEMORY. 

003A 23 


INX 

H 

; INCREMENT POINTER. 

003B C33100 


JMP 

RLOOP 

;LOOP UNTIL DONE. 

003E DBF8 

CHECK: 

IN 

DSTAT 

;READ STATUS. 

0040 E69D 


ANI 

9DH 

;LOCK AT ERROR BITS. 

0042 C8 


RZ 


;OK IF ZERO. 

0043 ID 


DCR 

E 

;DECREMENT RETRY COUNT. 

88# S 0200 


JNZ 

BLOOP 

;TRY AGAIN IF NOT ZERO. 


CMA 


;INVERT AND SEND 

0048 D3FF 


OUT 

0FEH 

;TO FRCNT PANEL. 

004A C34A00 

HERE: 

JMP 

HERE 

;LOOP. 

007D 


ORG 

7DH 

;PUT JUMP HERE. 

007D C30000 


JMP 

BOOT 

;JUMP INTO BOOT. 

0080 


END 

BOOT 

;END OF BOOT. 
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-FILE: 


FFFF 

0000 


0018 

0000 

0000 

0000 

0000 

0000 

FFFF 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

FFFF 

0000 

0000 

0000 


0000 

0000 

0001 

0002 

0002 

0003 


0000 

0010 

0000 

0000 

0000 

0042 

0000 

0002 


ABIOS24 PEN PAGE 001 DATE / TIME Oct 1,1980 12:15 PM 

. F/?/y _ STD DP. 

; CP/M BASIC INPUT/OUTPUT OPERATING SYSTE MJ££O S) 

; TARBELL ELECTRONICS CPM 1.4 VERSION OFjjto-l-8^>) 

; Copyright (c) 1980 Tarbell Electronics. " *** 

• 

; THIS MODULE CONTAINS ALL THE INPUT/OUTPUT ROUTINES FOR 
; THE CP/M SYSTEM, INCLUDING THE DISK ROUTINES FOR AUTOMATIC 
; SELECTION OF THE DISK DENSITY At© THE NECESSARY DMA ROUTINES. 

; THIS SECTION ALSO DEFINES THE I/O PORTS AND STATUS BITS. BY 
; SETTING THE PROPER VALUES FOR THE BQU STATEMENTS, THE I/O MAY BE 
; AUTOMATICALLY RECONFIGURED TO FIT MOST SITUATIONS. THE TRUE AND 
; FAT.SE ONES CONTROL CONDITIONAL ASSEMBLIES OF DIFFERENT SECTIONS 
; OF I/O ROUTINES TO FIT DIFFERENT INTERFACE REQUIREMENTS. 

= TRUE EQU 0FFFFH ;DEFINE VALUE OF TRUE. 

= FALSE EQU NOT TRUE ;DEFINE VALUE OF E’ALSE. 

±iiiz^i^^±^^^±^^iz^izi^i<:iz'k'k'k'k-k-k'k'k‘k'k'k'k'k‘k-k'k'k-k'k'k'k’k'k'k‘k'k'k’k'k’k±'k 

*** THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 

*** FOR DIFFERENT CONSOLE I/O SYSTEMS *** 

**&*jci<:jc±***it***i<ft**i<:*i<***jcici$ is ********•&*** **%&&*%'kit* 


— 

MSIZE 

EQU 

24 

;MEMORY SIZE IN KBYTES. 

= 

INTRP 

EQU 

FALSE 

?TRUE IF INTERRUPTS ALLOWED. 

= 

TESTING 

EQU 

FALSE 

;TRUE FOR TESTING ERRORS 

= 

TARBELL 

EQU 

FAT.SE 

;TRUE IF USING THE TARBELL Z-8Q CPU. 

= 

IOBASE 

EQU 

0 

;BASE IO ADDR FOR TARBELL CPU (0 or 10 hex). 

= 

TIMER 

EQU 

FALSE 

;TRUE IF USING CPU TITER (Tarbell CPU board). 

= 

STD 

DQU 

TRUE 

;TRUE IF STANDARD I/O. 

= 

VDB8024 

EQU 

FALSE 

/TRUE IF USING SD SALES VDB-8024. 


DELTA 

EQU 

FALSE 

;TRUE IF USING DELTA CPU CARD. 

= 

MS 102 

EQU 

FALSE 

;TRUE IF MITS 2SIO. 

= 

IS 102 

EQU 

FALSE 

;TRUE IF IMSAI SIO-2. 

= 

TUART 

EQU 

FALSE 

;TRUE IF CRCMEMCO TUART. 

= 

VDM 

EQU 

FALSE 

;TRUE IF PROC TECH VDM. 

= 

FLASH 

DQU 

FALSE 

;TRUE IF VG FLASHWRITER. 

= 

VB1 

EQU 

FALSE 

;TRUE IF SSM VB1-B. 

= 

OTHER 

EQU 

FALSE 

;TRUE IF SOMETHING ELSE. 

= 

SOLOS 

EQU 

FALSE 

;TRUE IF PROC TECH SOLOS. 

= 

BACKSP 

EQU 

TRUE 

;AUTO-BACKSPACE FOR CRT’S. 

=: 

DUBSID 

EQU 

FALSE 

;TRUE FOR DOUBLE SIDED DRIVES.(1 LOGICAL DRIVE) 

= 

DMACNTL 

EQU 

FALSE 

;TRUE IF DMA CONTROLLER 

= 

SPCJOL 

EQU 

FALSE 

;TRUE IF USING KLH SPOOLER 


7 

IF NOT SOLOS 

AT© NC/r TARDEL ;IF NOT PROC TECH SOLOS, 

= 

CSTAT 

EQU 

0 

; CONSOLE STATUS PORT. 

= 

CCOM 

EQU 

0 

; CONSOLE COMMAND PORT. 

= 

CDATA 

EQU 

1 

; CONSOLE DATA PORT'. 

= 

LSTAT 

EQU 

2 

;LIST STATUS PORT. 

= 

LOOM 

EQU 

2 

;LIST COMMAND PORT. 

= 

LDATA 

EQU 

3 

;LIST DATA PORT. 



ENDIF 



CONUL 

EQU 

FALSE 

; CONSOLE NULLS? 

= 

CNULL 

EQU 

16 

;CCNSCLE NULL COUNT. 


LSTNUL 

EQU 

FALSE 

;LIST DEVICE TELLS? 

= 

LNULL 

EQU 

0 

;LIST NULL COUNT. 

= 

LSTPAG 

EQU 

FALSE 

;LIST DEVICE PAGING? 

S= 

LINO 7 ^ 

EQU 

66 

; LINES PER PAGE. 

s= 

W 

DQU 

0 

; 8 FOR E© LD AT BEG OF SEEK. . 

.•RATE 0=3ms,l=6MS, 2=10MS, 3=20MS. ' 

= 

Q 

QU 

2 
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0000 = DUAL EQU FALSE ;TRUE IF DUAL DRIVE. (2 HEADS SdVE TOGETHER) 

******************************************************* 


*** THIS IS THE END OF THE AREA WHICH NORMALLY NEED *** 

*** BE CHANGED FOR MOST CONSOLE I/O SYSTEMS *** 
******************************************************* 


0000 = 

VIDEO 

EQU 

VDM OR FLASH OR VKL ;TRUE FOR ANY VIDEO. 

FFFF = 

RDYLO 

EQU 

STD OR SOLOS OR OTHER ; STATUS READY WHEN LOW. 

0000 = 

RDYHI 

EQU 

NOT RDYLO 


0000 = 

TARDEL 

EQU 

TARBELL OR DELTA ;IF USING TARBELL OR DELTA CPU. 


7 

IF 

TARDEL 

;IF USING TARBELL OR DELTA CPU 


CCOM 

EQU 

IOBASE+1 

;CONSOLE COMMAND PORT 


CSTAT 

EQU 

IOBASE+1 

;CONSOLE STATUS PORT ( CHAN A.) 


CDATA 

EQU 

IOBASE+0 

;CONSOLE DATA PORT 


LCOM 

EQU 

IOBASE+3 

;LIST COMMAND PORT 


LSTAT 

EQU 

ICBASE+3 

;LIST STATUS PORT (CHAN B.) 


LDATA 

EQU 

IOBASE+2 

;LIST DATA PORT 


ENDIF 


IF TIMER AND TARBELL ;MUST BE USING TARBELL CRJ. 

• TIMER EQUATES 


TCH0 

EQU 

IOBASE+4 


;TIMER CHAN 0 ADDRESS 

TCHl 

EQU 

IOBASE+5 


;TIMER CHAN 1 ADDRESS 

TCH2 

EQU 

ICBASE+6 


;TIMER CHAN 2 ADDRESS 

TCMND 

EQU 

IOBASE+7 


;TIMER COMMAND PORT 

IMASK 

EQU 

IOBASE+8 


;INTERRUPT MASKING PORT 

CNTR0 

EQU 

00000000B 


;counter 0 

CNTR1 

EQU 

01000000B 


;counter 1 

CNTR2 

EQU 

10000000B 


;counter 2 

RLWORD 

EQU 

00110000B 


;read/load lsb 1st, msb 2nd. 

RLHBYTE 

EQU 

00100000B 


;read/load msb only. 

RLLBYTE 

EQU 

00010000B 


;read/load lsb only. 

CNTRLT 

EQU 

00000000B 


;counter latching operation. 

BINARY 

EQU 

00000000B 


;select binary operation. 

BCD 

EQU 

00000001B 


;select BCD operation. 

MODEO 

EQU 

00000000B 


;interrupt on terminal count. 

MODE1 

EQU 

00000010B 


;programmable One-shot. 

MODE2 

EQU 

00000100B 


;rate generator. 

MODE3 

EQU 

00000110B 


;square wave rate generator. 

MODE4 

EQU 

00001000B 


;software triggered strobe. 

MODE5 

EQU 

ENDIF 

00001010B 


/•hardware triggered strobe. 


IF VDM 


;IF PROC TECH VDM1, 

SCREEN 

EQU 0CC00H 


/•SCREEN PLACE IN MEMORY. 


ENDIF 





IF FLASH OR VB1 



SCREEN 

EQU 0F800H 


/•SCREEN PLACE IS DIFFERENT. 


ENDIF 





IF FLASH 


;IF VG FLASHWRITTER 

ENDSCR 

EQU (SCREEN+2048) 

STIR 

8 


ENDIF 





IF VKL 

OR VDM 


;IF SSM VEL-B BOARD 

ENDSCR 

EQU (SCREEN+1024) 

SHR 

8 


ENDIF 
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IF VIDEO 




LINES15 

EQU SCREEN +64 


;VIDEO LINES 


SCRLCNT 

EQU 960 


;LINES TO SCROLL 


SCRNTOP EQU SCREEN + SCRLCNT 

;TOP OF SCREEN 



ENDIF 



0008 = 

BKSP 

EQU OSH 


;BACKSPACE EQUATE 

000A = 

LF 

EQU 0 All 


;LINEFEED EQUATE 

OOOD = 

CR 

EQU ODH 


;CARRIAGE RET EQUATE 

OOOC = 

FF 

EQU OCH 


;FORM-FEED EQUATE. 

0008 = 

EDEN 

EQU 08H 

;DOUBLE DENSITY ENABLE CODE 

00F7 = 

DDDSB 

EQU 0F7H 

;DOUBL. 

DENSITY DISABLE CODE 


/ 

IF SCLOS 


;IF PROC TECH SCLOS, 


CSTAT 

EQU OFAH 


/CONSOLE STATUS PORT. 


KBD 

EQU 0C02EEI 


;SOLOS KEYBOARD. 


CLRSCR 

EDU 0C0D5H 


;CLEAR SCREEN. 


SCRN 

EQU 0C054EI 


;SOLOS OUTPUT. 



ENDIF 





IF NOT SOLOS 


;IF NOT PROC TECH SOLOS, 

OOEO = 

DMAP 

EQU OEOH 


;DMA BASE ADDRESS. 

00F8 = 

DISK 

EQU 0F8H 


;DISK BASE ADDRESS. 



ENDIF 




/ 

IF SCLOS 


;IF PROC TECH SCLOS, 


IMAP 

EQU 06OH 


;DMA BASE ADDRESS. 


DISK 

EQU 078H 


/DIFFERENT DISK PORTS. 



ENDIF 



OOEO = 

k)R0 

EQU DMAP+0 


;DMA ADDRESS REG PORT. 

00E1 = 

WCTO 

EQU Df-lAP+1 


;DMA WORD COUNT REG PORT. 

00E8 = 

CMND 

EQU DMAP+8 


/DMA COMMAND PORT. 

00F8 = 

DCOM 

EQU DISK 


/DISK COMMAND PORT. 

00F8 = 

DSTAT 

EQU DISK 


/DISK STATUS PORT. 

00F9 = 

TRACK 

EQU DISK+1 


/DISK TRACK PORT. 

OOFA = 

SECTP 

EQU DISK+2 


/DISK SECTOR PORT. 

OOFB = 

DDATA 

EQU DISK+3 


/DISK DATA PORT. 

OOFC = 

WAIT 

EQU DISK+4 


/DISK WAIT PORT. 

OOFC = 

DCONT 

EQU DISK+4 


/DISK CONTROL PORT. 

OOFD = 

DMACHK 

EQU DISK+5 


/DMA CHECK PORT. 

OOOA = 

RTCNT 

EQU 10 


/RETRY COUNT. 



IF STD 


/IF STANDARD I/O, 

0001 = 

CKBR 

EQU 00000001B 


/KEYBOARD READY BIT. 

0080 = 

CPTR 

EQU 10000000B 


/CONS OUTPUT RDY BIT. 



ENDIF 





IF VDB8024 




CKBR 

EQU 00000010B 


/KEYBOARD RDY BIT. 


CPTR 

EQU 00000100B 


/CON RDY BIT. 



ENDIF 





IF MS102 


/IF MITS 2SIO, 


□<BR 

EQU 00000001B 


/KEYBOARD READY BIT. 


CPTR 

EQU 00000010B 


/PRINT READY BIT. 



ENDIF 





IF TARDEL OR 

IS 102 

/IF IMSAI SIO-2, 


CKBR 

EQU 00000010B 


/KEYBOARD READY BIT. 


CPTR 

EQU 00000001B 


/PRINT READY BIT. 
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ENDIF 




IF TUART 

;IF CRCMEMCO TUART, 


CKBR 

EQU 01000000B 

;KEYBOARD READY BIT. 


CPTR 

EQU 10000000B 

;PRINT READY BIT. 



ENDIF 




IF SOLOS 

;IF PROC TECH SCLOS, 


CKBR 

EDU 00000001B 

;KEYBOARD READY BIT. 


CPTR 

EQU 10000000B 

;DUMMY EQU. 



ENDIF 




IF OTHER 

;IF SOMETHING ELSE, 


CKBR 

EQU 00000010B 

;KEYBOARD READY BIT. 


CPTR 

EQU 10000000B 

;PRINTER READY BIT. 



ENDIF 


0080 = 

LRBIT 

EOU CPTR 

;LISTER READY BIT. 

0003 = 

IOBYTE 

EQU 3 

;ADDRESS OF I/O BYTE. 

1C00 = 

CBASE 

EQU (MSIZE-17)*1024 

;BIAS FOR LARGER THAN 17K. 

4500 = 

CPMB 

EQU CBASE+2900H 

;START OF CPM. 

4D06 = 

BDOS 

EQU CBASE+3106H 

;START OF BDOS 1.4. 

1500 = 

CPML 

EQU 150OH 

;LENGTH OF CPM SYSTEM-BIOS 

0019 = 

NSECTS 

EQU 25 

;NUMBER OF SECTORS TO READ 

5572 

/ 

ORG CPMB+1072H 

;CP/M PATCH. 

5572 CDF44F 


CALL CPMB+0AF4H 


5575 000000 


NOP!NOP!NOP 


5578 79 


MOV A,C 


5579 21F859 


LXI H,CPMB+14F8H 


5A00 

/ 

ORG CPMB+1500H 

;START OF BIOS. 


; I/O JUMP VECTOR 

; THIS IS WHERE CPM CALLS WHENEVER IT NEEDS 
; TO DO ANY INPUT/OUTPUT OPERATION. 

; USER PROGRAMS MAY USE THESE ENTRY POINTS 
; ALSO, BUT NOTE THAT THE LOCATION CF THIS 
; VECTOR CHANGES WITH THE MEMORY SIZE. 


5A00 

C33B5A 

JMP 

BOOT 

;FROM COLD START LOADER. 

5A03 

C39E5A 

WBOOTE: JMP 

WBOOT 

;FROM WARM BOOT. 

5A06 

C3E35A 

JMP 

CONST 

;CHECK CONSOLE KB STATUS. 

5 A0 9 

C3EC5A 

JMP 

CON IN 

;READ CONSOLE CHARACTER. 

5A0C 

C3025B 

JMP 

CONOT 

;WRITE CONSOLE CHARACTER. 

5A0F 

C3AF5D 

JMP 

LIST 

;WRITE LISTING CHAR. 

5A12 

C3BA5D 

JMP 

PUNCH 

;WRITE PUNCH CHAR. 

5A15 

C3BB5D 

JMP 

READER 

;READ READER CHAR. 

5A18 

C3C65B 

JMP 

HOME 

;MOVE DISK TO TRACK ZERO. 

5A1B C3285B 

JMP 

SELDSK 

;SELECT DISK DRIVE. 

5A1E C3CC5B 

JMP 

SETTRK 

;SEEK TO TRACK IN RB3 A. 

5A21 

C3 4 85C 

JMP 

SETSEC 

;SET SECTOR NUMBER. 

5A24 

C34D5C 

JMP 

SETDMA 

;SET DISK STARTING ADR. 

5A27 

C3865C 

JMP 

READ 

;READ SELECTED SECTOR. 

5A2A C3FB5C 

JMP 

WRITE 

;WRITE SELECTED SECTOR. 



IF 

SPOOL 

;IF USING KLH SPOOLER 



DB 

0FFH 

;FLAG FOR SPOOLER. 



DW 

LTBSY 

;LISTER STATUS LOCATION 



EM 

LTBSY 

;FOR SPOOLER - - 



DW 

LTBSY 

;I DON'T KNOW WHY IT ! S 



EW 

LTBSY 

;HERE 4 TIMES EITHER. 
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ENDIF 

;THE FOLLOWING TABLE DEFINES CP/M AS EITHER SINGLE OR 
;DOUBLE DENSITY AND IS CHANGED ON THE FLY WHEN A DISK 

;IS SELECTED. THE ORDER OF THIS TABLE MUST BE AS SHOWN. 

• 

5A2D 004E1A3F03SDTAB: DB 00H,4EH,26,63,3,7,242 ;SINGLE DENSITY TABLE 

IF DUBSID 

DB 02H,4EH,26,63,4,15,242 ;SINGLE DEN. DOUB SIDED. 

ENDIF 

5A34 010C335F04 DB 01H,0CH,51,95,4,15,237 ;SINGLE SIDED, DOUB DEN. 

IF DUBSID 

DB 03H,0CH,51,95,5,31,237 ;DOUB SIDED, DOUB DEN. 

ENDIF 

t 

; BOOT 

; THIS SECTION IS EXECUTED WHENEVER RESET AND RUN 
; IS PUSHED, AFTER THE COLDSTART LOADER READS IN 
; THE CPM SYSTEM. 

5A3B 318000 BOOT: LXI SP,80H ;SET STACK POINTER. 

IF INTRP ;IF INTERRUPTS ALLOWED, 

El ;ENABLE THEM HERE. 

ENDIF 

IF TIMER AND TARBELL ;IF USING TARBELL CPU 
MVI A, CNTR0 +RLWORD+MODE2 +BINARY ;INIT 8253 

OUT TCMND ;SEND IT TO COMMAND PORT 

LXI B,33333 ;TIME CONSTANT FOR 60 HZ 

MOV A,C 

OUT TCH0 ;LS BYTE OF COUNT 

MOV A,B 

OUT TCH0 ;MS BYTE OF COUNT 

ENDIF 

IF STD ;IF STANDARD I/O, 

POP!NOP!MOP!MOP ;LEAVE SPACE FOR INIT. 

NOP!NOP!NOP!NOP 
NOP! NOP INOP! NOP 
NOP! NOP! NOP! NOP 
ENDIF 

IF MS102 ;IF MITS 2SIO, 

MVI A,3 INITIALIZE 2SIO. 

OUT CCOM 

OUT LCOM 

MVI A,11H 

OUT CCOM 

OUT LCOM 

ENDIF 

IF TARDEL OR ISI02 
LXI H,IOINIT 

MVI B,4 

INITIO: MOV A,M 

CUT CCOM 

CUT LCOM 

INX H 


;point to 8251 init. bytes 
; there are 4 of them 
;get a byte 

;out to command port of console 
;out to command port of lister 
;bump pointer 


5A3E 00000000 
5A42 00000000 
5A46 00000000 
5A4A 00000000 
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DCR 

B 

;decrease count 



JNZ 

INITIO 

;loop till done. 



ENDIF 




IF 

TUART 

IF CROMEMCO TUART, 



MVI 

A,1 

SET A = 1. 



OUT 

54K 

SELECT DEVICE A. 



OUT 

52H 

RESET DEVICE B. 



LXI 

H,BAUDRS 

GET ADR OF BAUD RATE TABLE. 



MVI 

A,11H 

OCTUPLE THE CLOCK. 


IT1: 

OUT 

02H 

& RESET CURRENT DEV. 



MOV 

A,M 

GET BAUD RATE FROM TABLE. 



INX 

H 

INCREMENT POINTER. 



OUT 

0 

SET BAUD RATE. 



CALL 

CON IN 

READ KEYBOARD. 



CALL CONIN 

READ KEYBOARD AGAIN. 



CPI 

ODH 

IF NOT CARRIAGE-RETURN, 



MVI 

A,1 

SLOT THE CLOCK. 



JNZ 

IT1 

UNTIL A CARRIAGE-RETURN. 



ENDIF 




IF 

SOLOS 

?IF PROC TECH SOLOS, 



CALL 

CLRSCR 

;CLEAR SCREEN. 



ENDIF 


5A4E AF 


XRA 

A 

CLEAR SCRATCH AREA. 



IF 

VDM 

;IF PROC TECH VDM, 



OUT 

0C8H 

; CLEAR SCROLL PORT 



ENDIF 


5A4F 32CF5D 


STA 

LATCH 

LATCH = 0 

5A52 320300 


STA 

IOBYTE 

; CL EAR I/O BYTE. 

5A55 0E0C 


MVI 

C, ENDZ-STARTZ ;GET LENGTH OF ZERO AREA, 

5A57 21C05D 


LXI 

H f STARTZ 

;GET SCRATCH ADDRESS. 

5A5A 77 

BOOTL: 

MOV 

M,A 

;PUT ZERO IN MEMORY. 

5A5B 23 


INX 

H 

INCREMENT POINTER. 

5A5C 0D 


DCR 

C 

;DECREMENT COUNTER. 

5A5D C25A5A 


JNZ 

BOOTL 

;LOOP TILL DONE. 



IF 

VIDEO 

;IF ANY VIDEO BOARD, 



CALL CLEAR 

;CLEAR SCREEN. 



ENDIF 


5A60 DB01 


IN 

CDATA 

;CLEAR CONSOLE STATUS. 

5A62 216C5D 


LXI 

H,SMSG 

;PRINT OPENING MESSAGE. 

5A65 CD2A5D 


CALL 

PMSG 


5A68 CDEC5A 


CALL 

CCNIN 

;READ # OF DISKS. 

5A6B 4F 


MOV 

C/A 

;ECHO THE CHAR. 

5A6C CD025B 


CALL 

CONOT 


5A6F E607 


ANI 

7 

;LOCK AT 3 LSB'S. 

5A71 32CC5D 


STA 

NODSKS 

;SAVE IT. 

5A74 0E00 


MVI 

C,0 

/•SELECT DRIVE 0 

5A76 CD835A 

GOCPM: 

CALL 

SETUP 

;SET UP JUMPS. 

5A79 3AC05D 


LDA 

DISKNO 

;GET DISK NUMBER TO 

5A7C 4F 


MOV 

C,A 

;PASS TO CCP IN C. 

5A7D CD625B 


CALL 

SELDEN 

;CHECK THE DENSITY OF DISK. 

5A80 C30045 


JMP 

CPMB 

;JUMP TO CCP. 



IF 

TARDEL OR IS 102 


IOINIT: 

DB 

0AAH,040H,0CEH,037H 


ENDIF 


i 


IF 


; T F CRCMEMCO TUART, 


DART 
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BAUDRS: DB 94H,0CEH,0A2H,92H,88H,84H,82H,1 
ENDIF 

t 

;DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 
;READ AND WRITE ROUTINES FOR DMA OPERATION. 



IF DMACNTL 

;IF USING DMA CONTROL 

DMARW: 

STA 

ERCNT 

;SAVE ERROR COUNT. 

RWDMA: 

LDA 

SECT 

;GET SECTOR TO READ/WRITE 


OUT 

SECTP 

;AND SEND IT FLOPPY CHIP. 


LHLD 

DMAADD 

;GET CPM DMA ADDRESS. 

DMAKWE: 

XRA 

A 

;CLEAR ACCUM. 


OUT 

CMND 

;RESET DMA CHIP. 


MOV 

A,C 

;FORCE INTERRUPT COMMAND BYTE 


OUT 

DCOM 

;SEND IT TO CONTROLLER. 


MOV 

A, E 

;BYTE COUNT TO TRANSFER 


DCR 

A 

;COUNT = COUNT - 1. 


OUT 

WCTO 

;SEND IT TO DMA CHIP. 


MOV 

A,D 

;GET READ/WRITE CODE. 


OUT 

WCTO 

;AND TELL DMA CHIP WHAT TO DO. 


MOV 

A,L 

;GET LOW ADDRESS BYTE 


OUT 

ADRO 

;AND SEND IT TO DMA G3IP. 


MOV 

A,H 

,-GET HIGH ADDRESS BYTE 


CUT 

ADRO 

;AND SEND IT TO DMA CHIP. 


MVI 

A,41H 

;SET UP FOR REQUEST CH. 0 


CUT 

CMND 

;SEND IT TO CONTROLLER. 


CALL 

HOLD 

;CHECK HEAD LOAD BIT. 


ORA 

B 

; 'OR 1 IN THE READ/WRITE BITS. 


OUT 

DCOM 

;TELL FLOPPY CHIP WHAT TO DO. 

•ADJUST H,L FOR 128 BYTE 

INCREASE. 

/ 

PUSH 

D 

;SAVE D,E 


MOV 

A,D 

;GET DMA COMMAND BYTE 


ANI 

3FH 

;STRIP OFF COMMAND BITS 7 & 6 


MOV 

D,A 

;NCW SET FOR H,L ADJUST. 


DAD 

D 

;ADD IT TO H,L. 


POP 

D 

;RESTORE D,E 


•GENERAL PURPOSE WAIT ROUTINE. 




MVI 

A, 6 OH 

;CCUNT VALUE. 


CNTLOOP-.DCR 

A 




JNZ 

CNTLOOP 

;LOOP TILL = ZERO. 


SLOOP: 

IN 

DMACHK 

;CHECK FOR OPERATION DONE. 



RLC 


;BY LOCKING AT BIT 7. 



JC 

SLOOP 

;LOOP TILL BIT 7 =0. 



IN 

DSTAT 

; CHECK AND RETURN DISK STATUS 



RET 


;RETURN TO CALLER. 



ENDIF 



? SET UP JUMPS INTO CP/M 

: IN LOWER MEMORY. 

5A83 3EC3 

SETUP: 

MVI 

A, 0C3H 

;PUT JMP TO WBOOT 

5A85 320000 


STA 

0 

;ADR AT ZERO. 

5A88 21035A 


LXI 

H,WBOCTE 


5A8B 220100 


SHLD 

1 


5A8E 320500 


STA 

5 


5A91 21064D 


LXI 

H,BDOS 

;PUT JUMP TO BDOS 

5A94 220600 


SHLD 

6 

;AT ADR 5,6,7. 

5A97 218000 


■'I 

H, 80H 

;SET DEFAULT DMA ADR. 


7 
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5A9A 22BE5D 


SHLD DMAADD 


5A9D C9 


RET 

;RETURN FROM SETUP. 


; WARM-BOOT: READ ALL 

OF CPM BACK IN 


; EXCEPT BIOS, THEN JUMP TO CCP. 

5A9E 318000 

mooi: 

LXI SP,80H 

;SET STACK POINTER. 



IF INTRP 

;IF INTERRUPTS ALLOWED, 



El 

ENDIF 

;ALLOW THEM HERE. 



IF LSTPAG 

;IF LIST DEVICE PAGING, 



XRA A 

STA LFCNT 
ENDIF 

,-RESET LINE-FEED COUNT. 

5AA1 3AC05D 


LDA DISKNO 

;SAVE DISK NUMBER. 

5AA4 F5 


PUSH PSW 

;SAVE CN STACK 

5AA5 0E00 


MVI C,Q 

;SELECT DRIVE A 

5AA7 CD285B 


CALL SELDSK 

/SELECT DRIVE A 

5AAA CDC65B 


CALL HOME 

/HOME THE DRIVE 

5AAD 210000 


LXI H,0 

/CLEAR H,L 

5ABO 22C75D 


SHLD DRVFLG 

/CLEAR DRIVE FLAGS 

5AB3 22C95D 


SHLD DRVFLG+2 


5AB6 0619 


MVI B,NSECTS 

/GET # SECTORS FOR CPM READ. 

5AB8 0E02 


MVI C,2 

/TRACK (B)=0, SECTOR (C)=2. 



IF INTRP 

/IF INTERRUPTS ALLOWED, 



DI 

ENDIF 

/DISABLE THEM HERE. 

5ABA 210045 


LXI H,CPMB 

/GET STARTING ADDRESS. 

5ABD 22BE5D 

RBLK1: 

SHLD DMAADD 

/SET STARTING ADDRESS. 

5AC0 CD485C 


CALL SETSEC 

/READ STARTING AT SECTOR IN C. 

5AC3 C5 


PUSH B 


5AC4 CD865C 


CALL READ 


5AC7 Cl 


POP B 


5AC8 C2D75A 


JNZ RDERR 

/IF ERROR, PRINT MESSAGE. 

5ACB OC 


INR C 

/INCREMENT SECTOR NUMBER. 

5ACC 05 


DCR B 

/DECREMENT SECTOR COUNT. 

5ACD C2BD5A 


JNZ RBLK1 

/ALL DONE WHEN D=0. 

5ADO FI 

ALDON: 

POP PStV 

/RESTORE DISK NUMBER. 



IF INTRP 

/IF INTERRUPTS ALLOWED, 



El 

ENDIF 

/ALLOW THEM AGAIN HERE. 

5ADI 32C05D 


STA DISKNO 


5AD4 C3765A 


JMP GOCPM 

/GO BACK TO CPM. 

5AD7 214F5D 

RDERR: 

LXI H, BTMSG 

/GET ADDRESS OF "BOOT ERROR". 

5ADA CD2A5D 


CALL PMSG 

/PRINT IT. 

5ADD CDEC5A 


CALL CONIN 

/READ A CHAR FROM CONSOLE. 

5AE0 C39E5A 


JMP WBOOT 

/DO A WARM BOOT. 


• CHECK 

CONSOLE INPUT 

STATUS. 

5AE3 DBOO 

CONST: 

IN CSTAT 

/READ CONSOLE STATUS. 

5AE5 E601 


ANI CKBR 

/LOCK AT I<B READY BIT. 

5AE7 3E00 


MVI A,0 

/SET A=0 FOR RETURN. ^ 
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5AE9 CO 


IF RDYLO 

RNZ 

ENDIF 

;IF STATUS READY LOT, 
;NOT READY WHEN NOT 0. 




IF RDYIII 

RZ 

ENDIF 

;IF STATUS READY HIGH, 
;NOT READY WHEN ZERO. 


5AEA 2F 

5MB C9 


CMA 

RET 

;IF READY A=FF. 

;RETURN FROM CONST. 



; READ 

A CHARACTER FROM 

CONSOLE. 



CONIN: 




IF NOT SOLOS 

;IF NOT PROC TECH SQLCS, 

5AEC DBOO 

IN CSTAT 

;READ CONSOLE STATUS. 

5AEE 

E601 

ANI CKBR 

ENDIF 

;IF NOT READY, 



IF SOLOS 

;IF PROC TECH SOLOS, 



CALL KBD 

;READ SQL KEYBOARD. 



JZ CONIN 
ENDIF 

;READY WHEN NOT ZERO. 



IF RDYLO AND NOT SOLOS 

5AF0 

C2EC5A 

JNZ CONIN 
ENDIF 

;LOOP UNTIL LOT. 



IF RDYHI 

;IF READY WHEN HIGH, 



JZ CONIN 
ENDIF 

;LOOP UNTIL HIGH. 



IF NOT SOLOS 

;IF NOT PROC TECH SOLOS, 

5AF3 

DB01 

IN CDATA 
ENDIF 

;READ A CHARACTER. 

5AF5 

E67F 

ANI 7FH 

;MAKE MOST SIG. BIT = 0. 



IF BACKSP 

;IF BACKSPACE ACTIVATED, 

5AF7 

FE7F 

CPI 7FH 

;IS IT A RUBCUT? 

5AF9 

CO 

RNZ 

;RETURN IF NOT. 

5AFA 3EFF 

MVI A,0FFH 

;SET NO PRINT FLAG. 

5AFC 

32C15D 

STA CONOTF 


5AFF 

3E7F 

MVI A,7FH 
ENDIF 

;RESTORE RUBOUT. 

5B01 

C9 

RET 

;RETURN FROM COS!IN. 



; WRITE A CHARACTER TO 

• 

CONOT: 

THE CONSOLE DEVICE. 



IF BACKSP 

;IF BACKSPACE ACTIVATED, 

5B02 

79 

MOV A,C 

;GET CHARACTER. 

5B03 

FE7F 

CPI 7FH 

;IS IT A RUBCXJT? 

5B05 

C8 

RZ 

;IF SO, DON'T PRINT IT. 

5B06 

3AC15D 

LDA CONOTF 

;GET NO PRINT FLAG. 

5B09 

B7 

ORA A 

;SET CRJ FLAGS. 

5BOA CA1D5B 

JZ CONOTA 

;NOT SET, SO PRINT. 

5 BOD AF 

XRA A 

;RESET THE FLAG 

5B0E 32C15D 

STA CONOTF 

;TO ZERO. 

5B11 

0E08 

MVI C,8 

;PRINT BACKSPACE. 

5B13 CD1D5B 

CALL CONOTA 
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5B16 0E20 


MVI C,20H 

;PRINT SPACE. 

5B18 CD1D5B 


CALL CCNOTA 


5BIB 0E08 

CONOTA: 

MVI C,8 

;ANOTHER BACKSPACE. 



ENDIF 




IF CONUL AND 

NOT VIDEO ;IF NULLS REQUIRED, 



MVI A, ODH 

;IF IT'S A CR, 



CMP C 

;THEN HOP OUT 



JZ CONULL 

ENDIF 

;TO NULL ROUTINE. 


CONOT1: 

IF NOT VIDEO 

AND NOT’ SOLOS 

5BID DB00 


IN CSTAT 

;READ CONSOLE STATUS. 

5B1F E680 


ANI CPTR 
ENDIF 

;IF NOT READY, 



IF RDYLO AND 

NOT VIDEO AND NOT SOLOS 

5B21 C21D5B 


JNZ CQNOT1 
ENDIF 

;LOOP UNTIL LCW. 



IF RDYHI AND 

NOT VIDEO ;IF READY WHEN HIGH 



JZ CONOT1 

ENDIF 

;LOOP UNTIL HIGH. 



IF NOT VIDEO 

AND NOT SOLOS 

5B24 79 


MOV A,C 

;GET CHARACTER. 

5B25 D301 


OUT CDATA 

;PRINT IT. 

5B27 C9 


RET 

ENDIF 

;RETURN. 



IF CONUL AND 

NOT VIDEO 


CONULL: 

PUSH B 

;SAVE B&C. 



MVI B, CNULL+1 ;GET NULL COUNT''. 


CONULl: 

CALL CONOT1 

;PRINT CR. 



MVI C,0 

;GET NULL CHAR. 



DCR B 

;DECREMENT COUNTER. 



JNZ CONULl 

;DO NEXT NULL. 



POP B 

;RESTORE B&C. 



MOV A,C 

;RESTORE A. 



RET 

ENDIF 

;RETURN. 



IF SOLOS 

;IF PROC TECH SCLGS, 



PUSH B 

;SAVE B&C. 



MOV B,C 

;PUT CHAR IN B REG. 



CALL SCRN 

;OUTPUT CHAR TO SCLOS. 



POP B 

;RESTORE B&C. 



MOV A,C 

;PUT CHAR IN A. 



RET 

ENDIF 

;RETURN FRCM CCNOT. 



IF VIDEO 

;IF ANY VIDEO BOARD, 


VIDEO DRIVER FOR VB1-B OR VDM 1 BOARD. 

WRITTEN BY G.W. MULCH IN 

9-16-78 

MOV A,C ;GET THE CHAR INTO REG A 

PUSH H ;SAVE REGISTERS 

PUSH D 
PUSH B 


A? 
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LXI H 

, SCRNTOP 





MVI M,0A0H 

STUFF CURSOR BACK 




RET 

• 

/ 

ALL DONE. 



CLEAR: 

LXI H 

,SCREEN 

CLEAR SCREEN 




MVI A 

., ENDSCR ; 

THIS IS END CHECK 



CL ERA: 

CMP H 

/ 

IS IT END YET? 




JZ FINISH 





MVI M 

1 I 

r / 

PUT SPACE CM SCREEN 




INX H 


BUMP POINTER 




JMP CLERA ; 

GO BACK IF NOT DONE 



FINISH: 

LXI H 

,SCRNTOP 





MVI M,0AQH 

STUFF CURSOR BACK AGAIN 




SHLD VDMP ; 

SAVE CURSOR POSITION. 




RET 

] 

ALL DONE. 



• 

ENDIF 

i 

END OF VDM DRIVER. 



/ 

; SELECT DISK 

HUMBER ACCORDING TO REGISTER C. 



; ALSO CHECK 

IF DISK HAS 

BEEN LOGGED IN BEFORE. 



; IF NOT, LOG 

IT IN AND, CHECK DENSITY 

5B28 

79 

SELDSK: 

MOV 

A,C ; 

GET NEW DISK NUMBER. 

5B29 

E603 


ANI 

3 ; 

ONLY LOOT AT 2 LSB'S. 

5B2B 

21C05D 


LXI 

H,DISKNO ; 

GET ADR OF OLD DISK NO. 

5B2E 

BE 


CMP 

M 

NEW = OLD? 

5B2F 

C8 


RZ 


IF SO, RETURN. 

5B30 

F5 


RJSH 

A 

SAVE DISK NUMBER. 

5B31 

3ACC5D 


LDA 

NCDSKS 

GET NUMBER OF DISKS. 

5B34 

3D 


DCR 

A 

IF MORE THAN OTE DISK, 

5B35 

C24D5B 


JNZ 

SELMOR 

TAKE CARE OF IT. 

5B38 

21635D 


LXI 

H,MNTMSG 

GET ADR OF MOUNT MESSAGE. 

5B3B 

CD2A5D 


CALL 

PMSG 

PRINT "MOUNT ". 

5B3E 

FI 


POP 

A 

GET DISK NUMBER. 

5B3F 

32C05D 


STA 

DISKNO 

UPDATE OLD WITH NEW. 

5B42 

C641 


ADI 

'A' 

ADD ASCII FOR 'A'. 

5B44 

4F 


MOV 

C, A 

PUT INTO C. 

5B45 

CD025B 


CALL 

COTOT 

PRINT IT. 

5B48 

CDEC5A 


CALL 

COTIN 

READ A CARRIAGE RETURN. 

5B4B 

AF 


XRA 

A 

SET A=0 FOR NO ERRO IND. 

5B4C 

C9 


RET 


RETURN FROM SELDSK. 

5B4D 

FI 

SELMOR: 

POP 

A 

MAKE STACK RIGHT. 

5B4E 

7E 


MOV 

A,M 

GET OLD DISK NUMBER. 




IF 

DUAL 

IF DUAL DRIVE, 




ANI 

OFEH 

CLEAR OUT BIT 0. 




ENDIF 


5B4F 

5F 


MOV 

E,A 

;PUT OLD DISK NO. IN D&E. 

5B50 

1600 


MVI 

D,0 


5B52 

21C35D 


LXI 

H,TRTAB 

;GET ADDRESS OF TRACK TABLE. 

5B55 

E5 


PUSH 

H 

;SAVE FOR LATER 

5B56 

19 


DAD 

D 

;ADD DISK NO. TO ADDRESS. 

5B57 

DBF 9 


IN 

TRACK 

;READ 1771 TRACK REGISTER. 

5B59 

77 


MOV 

M, A 

;PUT INTO TABLE. 

5B5A 

79 


MOV 

A,C 

;GET NET DISK NUMBER. 




IF 

DUAL 

;IF A DUAL DRIVE, 




ANI 

OFEH 

; CLEAR BIT 0. 




ENDIF 


5B5B 

5F 


MOV 

E,A 

;PUT NET DISK NO. IN D&E. 

5B5C 

El 


POP 

H 

;RESTORE ADDRESS OF TRACK TABLE 

5B5D 

19 


DAD 

D 

;ADD DISK NO. TO ADDRESS. 

5B5E 

7E 


MOV 

A,M 

;GET NET TRACK NUMBER. 


PM 






FILE: ABIOS24 FRN 


VIDPRO: 


UPDATE: 

GONE: 

LFNOT: 

BS: 

CARRET: 


MAXLIN: 


SCROLL: 


BLANK: 


PAGE Oil DATE / TIME Oct 1,1980 12:15 PM 


RJSH PSW 
CALL VIDPRO 
POP PSW 
POP B 
POP D 
POP H 
RET 


;CHAR. IS IN REG A 
;DO VIDEO ROUTINE 
;RESTORE REGISTERS 


;BACK TO CALLER 


LHLD VDMP 
CPI CR 
JZ CARRET 
CPI LF 
JZ LFNOT 
CPI BKSP 
JZ BS 
CPI FF 
JZ CLEAR 
MOV M,A 
INX H 

MVI M,0A0H 
JMP MAXLIN 
MVI M,' ' 

JMP UPDATE 
MVI M,' ' 

LHLD VDMP 
DCX H 
SHLD VDMP 
JMP GCNE 
MVI M,' ' 

rev A f L 
ANI OCOH 
ADI 40H 
MOV L,A 
MVI A,0 
ADC H 
MOV H, A 
SHLD VDMP 
MVI A,7FH 
ANA L 
RNZ 

MVI M,' ' 

LXI H,SCRNTOP 
SHLD VDMP 
LXI H,LINES15 
LXI D,SCREEN 
LXI B,SCRLCNT 
MOV A,M 
STAX D 
INX H 
INX D 
DCX B 
XRA A 
CMP B 

JNZ SCRCLL 
CMP C 

JNZ SCROLL 
LXI H,SCRNTOP 
MVI M,' ' 

INX H 
MOV A,L 
ANI 3FH 
JNZ LNK 


;GET SCREEN POSITION POINTER 
;IS IT CARRIAGE RETURN? 

;IS IT LINEFEED? 

;PUT IN A BLANK 
;IS IT A RUBOUT? 

;IS IT CNTL-L? 

;IT HAS TO BE DATA 
;UPDATE POSITION 
;PUT CURSOR ON SCREEN 
;CHECK FOR LINE >64 
;PUT IN A SPACE 
;GET OUT NOT 

;GET CURRENT POSITION 

;SAVE CURSOR POSITION 

;CHAR. IS A CARRIAGE RET. 

;UPDATE NEXT POSITION 

;SET UP FOR NEW LINE 
;ADDRESS OF NEW LINE 


;SAVE POINTER FOR NEXT CHAR. 


;EXIT BACK TO MAIN PROGRAM 


;15 LINES OF SCREEN DATA 
;TOP OF SCREEN. SET UP 
; TO SCROLL 15 LINES 
;START SCRQLLLING UP 
;SHJFF REG A BY WAY OF D,E 


;15 LINES YET? 


;NOT DOTE YET! 

;PUT BLANK ON SCREEN 
;BLANK ENTIRE DATA LINE 
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5B5F D3F9 

OUT TRACK ; 

PUT INTO 1771 TRACK REG. 

5B61 79 

VCN A,C ; 

UPDATE OLD DISK NUMBER. 

5B62 32C05D SELDEN: STA DISKNO 


5B65 87 

ADD A 

PUT BITS 1&2 AT 4&5. 

5B66 87 

ADD A 


5B67 87 

ADD A 


5B68 87 

ADD A 


5B69 32CF5D 

STA LATCH ; 

SAVE NEW LATCH CODE. 


•SELECT DENSITY BASED ON BYTE VALUE 


(IN TRACK 0 SECTOR 1 ADDRESS 7EH. 


IF THIS BYTE IS A 0DDH, 

THEN THE 


DISK IS DOUBLE DENSITY, 

ELSE, IT'S 


SINGLE DENSITY. 


5B6C C5 I 

DENSITY:PUSH B 

SAVE B,C 

5B6D 21C75D 

LXI H,DRVFLG 

INDEX INTO DRIVE BYTE FLAG 

5B70 0600 

MVI B,0 

ZERO REG B 

5B72 09 

DAD B 

ADD THE DRIVE NUMBER 

5B73 7E 

MOV A,M 

•GET THE BYTE FLAG 

5B74 E7 

ORA A 

•SET THE FLAGS 

5075 FA9E5B 

JM LOGED 

•SKIP IF LOGGED IN BEFORE 

5078 E5 

PUSH H 

•SAVE DRIVE TABLE POINTER. 

5079 3ACF5D 

LDA LATCH 


507C D3FC 

OUT DCONT 

SELECT DRIVE 

507 E 2ABE5D 

LHLD DMAADD 

GET PRESENT DMA ADDRESS 

5B81 E5 

PUSH H 

SAVE CN STACK 

5B82 CDC65B 

CALL HOME 

HOME DRIVE 

5B85 3E01 

MVI A,1 

SET FOR SECTOR 1 

5B87 32BD5D 

STA SECT 

SAVE SECTOR TO READ 

5B8A 21D15D 

LXI H,DBUFF 

POINT TO DMA BUFFER 

5B8D 22BE5D 

SHLD DMAADD 

SET UP THE DMA ADDRESS 

5090 CD865C 

CALL READ 

READ TRK 0, SEC 1 INTO DBUFF 

5B93 El 

POP H 

RECOVER DMAADD FROM STACK 

5B94 22BE5D 

SHLD DMAADD 

RESTORE IT 

5B97 El 

POP H 

RESTORE DRIVE TABLE POINTER. 

5B98 3A4F5E 

LDA DBUFF+7 EH 

GET THE DENSITY CODE BYTE 

5B9B F680 

ORI 80H 

set logged in bit 

5B9D 77 

MOV M,A 

place it in flag table. 

5B9E 010700 LOGED: LXI B,7 ; 

index value through drive table. 

5BA1 E612 

ANI 12H 

MASK DENSITY AND SIDE BITS OUT. 

5BA3 07 

ORA A 

SINGLE DENSITY? 

5BA4 212D5A 

LXI H,SDTAB 

point to start of tables 

5BA7 CAAB5B 

JZ DENSIT1 

yes, overlay param. block 


IF DUBSID 



DAD B 

?no, add offset to next table 


CPI 2 

?single den doub sided? 


JZ DENSITl 

•yes 


DAD B 

;no 


CPI 10H 

?doub den single sided? 


JZ DENSITl 

?yes 


ENDIF 


5BAA 09 

DAD B 

;no, must be doub den , doub sided 

5BAB EB DENSIT1:XCHG 

;drive table pointer —> d,e 

5BAC 1A 

LDAX D 

;GET LOG BYTE 

5BAD 13 

INX D 

;BUMP POINTER 

5BAE 32CB5D 

STA DENS 

;SET DENSITY 

5BB1 1A 

LDAX D 

;GET A BYTE FROM TABLE 

5BB2 13 

INX D 

;BUMP POINTER 

5BB3 32154D 

STA BDOS+15 

?CHANGE TRANS FUNCTION 




fc'JLLEj ABIOS24 

PRN 

PAGE 0l4 

DATE / TIME Oct 1,1980 12:15 PM 

5BB6 213A4D 

LXI 

H,BDOSt52 

y POINT TO CONSTANT DATA AREA (CP/M) 

5BB9 0605 

mvi B,5 

;COUNT 

= 5 

5BBB 1A 

1WE: LDAX D 

;GET A BYTE FROM TABLE 

5BBC 77 

mov 

M,A 

;OVERLAY CP/M 

5BBD 13 

INX 

D 

/BUMP 


5BBE 23 

INX 

H 

/ POINTERS 

5BBF 05 

DCR 

B 

/DECREASE COUNT 

5BC0 C2BB5B 

JNZ 

MOVE 

; AND LOOP TILL DONE 

5BC3 Cl 

POP 

B 

/RESTORE B,C 

5BC4 AF 

XRA 

A 

/SET A 

= 0. 

5BC5 C9 

RET 


/RETURN FROM SELDSK. 


; MWE DISK 

TO TRACK ZERO. 


5BC6 3E02 

HOME: MVI 

A,0+STERAT 

/RESTORE 

5BC8 D3F8 

OUT 

DCOM 



5BCA 0E00 

mi 

C,0 

/TRACK 

0 


t 

/ SET TRACK 

NUMBER TO WHATEVER 

IS IN REGISTER C. 


; ALSO PERFORM MCWE TO THE CORRECT TRACK (SEEK) . 

5BCC 2ACF5D 

f 

SETTRK: LHLD LATCH 


/get new and old latch. 

5BCF 7C 

MOV 

A,H 


/get latch value. 

5EDO E6B7 

ANI 

0B7H 


/strip density and side bits. 

5BD2 67 

MOV 

H,A 


/restore it. 


i 

IF 

DUBSID 


/if using double sided drive. 


IDA 

DENS 


/check if double sided. 


RRC 





RRC 



/look at bit 1. 


JNC 

NOTSID 


/if bit 1=0, it's single sided. 


MOV 

A,C 


/it's doub sided, so get track number 


RRC 



/divide by 2. 


mov 

B,A 


/save it in reg b. 


MOV 

A,L 


/get old latch value. 


JC 

SIDE2 


/change side if odd track. 


ANI 

OBFH 


/clear side bit from latch. 


JMP 

SETLAT 


/go set the latch. 


SIDE2: ORI 

40H 


/turn on side select bit. 


SETLAT: STA 

CLATCH 


/save it for later. 


ANI 

OBFH 


/clear side bit. 


CALL CLDLAT 


/check for drive change. 


MOV 

A,B 


/restore doub sided trk number. 


ANI 

7FH 


/clear bit 7. 


MOV 

C f A 


/trk number new in reg c. 


JMP 

TRKSET 


/check for density of track going to. 


ENDIF 




/ 

IF 

NOT DUBSID 


/if not using double sided drive 

5BD3 C3EL5B 

JMP 

NOTSID 


/jump around subroutine. 


ENDIF 



5BD6 BC 

QLDLAT: CMP 

H 


/new = old? 

5BD7 3EFF 

MVI 

A,0FFH 


/if not, set = ff 

5BD9 C2DD5B 

wJNZ 

SFLAG 



5BDC 2F 

CMA 



/new = old, set = 0. 

5BDD 32C25D 

SFLAG: STA 

HLSF 


/save head load select flag. 

5 BEX) C9 

RET 




5BE1 7D 

NOTT.: MOV 

A,L 


/get latch value. 

5BE2 32D05D 

STA 

CLATCH 


/save it 
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5BE5 

CDD65B 


CALL 

CLDLAT 

;check for drive change. 

5BE8 

3ACB5D 

TRKSET: 

LDA 

DENS 

CHECK DRIVE DENSITY FLAG 

5BEB 

OF 


RRC 


IS IT ZERO ? 

5BEC 

D2FD5B 


JNC 

TRKSD 

YES, WE ARE SINGLE DENSITY 

5BEF 

79 


mov 

A,C 

RESTORE TRACK NUMBER 

5BF0 

FE01 


CPI 

1 

IS IT TRACK 1 ? 

5BF2 

DAFD5B 


JC 

TRKSD 

IF LESS THEN, SET SINGLE DEN. 

5BF5 

3AD05D 


LDA 

CLATCH 

GET THE CURRENT LATCH VALUE 

5BF8 

F608 


ORI 

DDEN 

SET BIT 4 CN (DOUB DENSITY ON) 

5BFA 

C3025C 


JMP 

TRKDD 


5BFD 

3AD05D 

TRKSD: 

LDA 

CLATCH | 

GET CURRENT LATCH VALUE 

5C00 

E6F7 


ANI 

DDDSB ; 

TURN OFF BIT 4 (SINGLE DENSITY ON) 

5C02 

32D05D 

TRKDD: 

STA 

CLATCH ; 

SAVE NEW CURRENT LATCH VALUE 

5C05 

D3FC 


CUT 

DCONT 

AND SET THE HARDWARE LATCH 

5C07 

79 


MOV 

A,C 

RESTORE TRACK NUMBER 

5C08 

32BC5D 


STA 

TRK ; 

UPDATE OLD WITH NEW. 


! 

; MOTE THE HEAD TO THE TRACK IN REGISTER A. 


t 


5C0B 

C5 

SEEK: 

PUSH 

B 

;SAVE B&C. 

5C0C 

47 


MOV 

B,A 

;SAVE DESTINATION TRACK 

5 COD 

3E0A 


MVI 

A,RTCNT 

;GET RETRY COUNT. 

5C0F 

32CE5D 

SENTRY: 

STA 

SERCNT 

;STORE IN ERROR COUNTER 

5C12 

DBF 9 


IN 

TRACK 

;READ PRESENT TRACK NO. 

5C14 

4F 


MOV 

C, A 

;SAVE IN C. 

5C15 

79 


MOV 

A,C 

;DELAY. 

5C16 

B8 


CMP 

B 

;SAME AS NEW TRACK NO.? 

5C17 

78 


MOV 

A,B 


5C18 

C21D5C 


JNZ 

NOTHR 

;JUMP IF NOT THERE. 

5C1B 

Cl 

THERE: 

POP 

B 

;RESTORE B&C. 

5C1C 

C9 

NOTHR: 

RET 


,*RETURN FRCM SEEK. 


;DELAY LOOP TO ALLOT TUNNEL 
; ERASE TO END DURING WRITE. 


t 


5C1D 

F5 


PUSH 

PSW 


5C1E 

3 EDO 


MVI 

A, 0D0H 

; COUNT =208 

5C20 

3D 

BUSY1: 

DCR 

A 

;LOOP 

5C21 

C2205C 


JNZ 

BUSY1 

; TILL ZERO 

5C24 

FI 


POP 

POT 


5C25 

78 


MOV 

A,B 

; RESTORE A FRCM B. 

5C26 

D3FB 


OUT 

DDATA 

;TRACK TO DATA REGISTER. 

5C28 

3E16 


MVI 

A, 14H+STPRAT+HLAB ;GET STEP RATE, DO 

5C2A 

D3F8 


OJT 

DCOM 

;SEEK WITH VERIFY. 




IF 

NOT DMACNTL 

5C2C 

DBFC 


IN 

WAIT 


5C2E 

DBF8 


IN 

DSTAT 

;CHECK STATUS 




ENDIF 





IF 

DMACNTL 




BUSY2: 

CALL 

SLOOP 

;USE DMA CHECK PORT 




ENDIF 


5C30 

E691 


ANI 

91H 

;LOCK AT BITS. 

5C32 

CA1B5C 


JZ THERE 

;OK IF ZERO. 




IF TESTING 

;IF TESTING FOR ERRORS 




PUSH 

H 

;SAVE H&L. 




LXI 

H,SECNT 

;GET ADR OF SEEK ERR CTR. 




T'-JR 

M 

;ONE MORE SEEK ERROR. 
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POP H ; RESTORE H&L. 

ENDIF 


5C35 3ACE5D 


LDA 

SERCNT 

;GET ERROR COUNT. 

5C38 3D 


DCR 

A 

7DECREMENT COUNT. 

5C39 C20F5C 


JNZ 

SRETRY 

;RETRY SEEK. 

5C3C Cl 


POP 

B 

; RESTORE B&C. 

5C3D 215B5D 


LXI 

H,SKMSG 

;PRINT "SEEK ". 

5C40 DBF8 


IN 

DSTAT 

;READ DISK STATUS. 

5C42 E691 


ANI 

91H 

;LOCK AT ERROR BITS. 

5C44 57 


MOV 

D,A 

;PUT IN REG D. 

5C45 C3AF5C 


JMP 

ERMSG 

;DO COMMON ERR MESSAGES. 


7 SET DISK SECTOR NUMBER. 

5C48 79 

SETSEC: 

MOV 

A,C 

;GET SECTOR NUMBER. 

5C49 32ED5D 


STA 

SECT 

;PUT AT SECT # ADDRESS. 

5C4C C9 


RET 


;RETURN FROM SETSEC. 


; SET DISK DMA ADDRESS. 

• 


5C4D 60 

SETDMA: 

MOV 

H,B 

;MOVE B&C TO H&L. 

5C4E 69 


MOV 

L,C 


5C4F 22BE5D 


SHLD DMAADD 

;PUT AT DMA ADR ADDRESS. 

5C52 C9 


RET 


; RETURN FROM SETDMA. 


; HDLD ■ 

- GET HEAD-LOAD BIT IF REQUIRED. 

5C53 3AC25D 

HOLD: 

LDA 

HLSF 

;GET HEAD-LOAD FLAG. 

5C56 E7 


ORA 

A 

;IS A = ZERO? 

5C57 CA685C 


JZ 

HDLDl 

;HOP IF SO. 

5C5A 2F 


CMA 


;SET A = 0. 

5C5B 32C25D 


STA 

HLSF 

;SET FLAG = 0 IF NOT. 


? IF CHANS INC TO A NEW 

DRIVE, PERFORM A SEEK 


; TO THE SAME TRACK TO 

ALLOW THE HEAD TO UNLOAD. 

5C5E DBF9 

t 

IN 

TRACK 

;GET PRESENT TRACK 

5C60 D3FB 


OUT 

DDATA 

7 AND TELL CONTROLLER 

5C62 3E16 


MVI 

A, 14H+STPRAT ;GET STEP COMMAND 

5C64 D3F8 


OUT 

DCOM 

;SEND IT TO ELOPPY CCNTROLL 



IF 

NOT DMACNTL 

5C66 DBFC 


IN 

WAIT 

;WAIT FOR INTRQ 



ENDIF 




IF 

DMACNTL 




CALL 

SLOOP 

7USE EMA CHECK PORT 



ENDIF 


5C68 DBF8 

HDLD1: 

IN 

DSTAT 

7READ 1771 STATUS. 

5C6A E620 


ANI 

20H 

7LOCK AT HL BIT. 

5C6C 3E04 


MVI 

A, 4 


5C6E C8 


RZ 



5C6F 97 


SUB 

A 

7HEAD IS LOADED 

5C70 C9 


RET 


7RETURN FROM HDLD. 


r 

IF 

NOT DMACNTL 

5C71 32CD5D 

DSKSET: 

STA 

ERCNT 

7 SAVE RETRY COCUNT 

5C74 3EDO 


MVI 

A, 0D0H 

7CAUSE INTRP 

5C76 D3F8 


OUT 

DCOM 


5C78 E3 


XTHL 


7 SOME 
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5C79 

E3 

XTHL 

ENDIF 

DELAY 



IF INTRP 

DI 

ENDIF 




IF NOT DMACNTL 


5C7A 2ABE5D 

LHLD DMAADD 

;STARTING ADDRESS 

5C7D 

3ABD5D 

LDA SECT 

;GET SECTOR NUMBER 

5C80 

D3FA 

OUT SECTP 

;TELL CONTROLLER 

5C82 

CD535C 

CALL HOLD 

; CHECK FOR HEAD LOADED 

5C85 

C9 

RET 

ENDIF 



READ THE SECTOR AT SECT, FROM THE PRESENT TRACK. 
USE STARTING ADDRESS AT DMAADD. 


5C86 3E0A 

READ: 

MVI 

A, RTCNT ; 

GET RETRY COUNT. 


RRETRY: 






IF 

DMACNTL 




LXI 

B,80D0H ; 

FLOPPY READ, FORCE INTRP. 



LXI 

D f 4080H ; 

DMA READ, BYTE COUNT. 



CALL DMARW 

COMMON READ/WRITE ROUTINE. 



ENDIF 




IF 

INTRP 

•IF INTERRUPTS ALLOWED, 



DI 

i 

;DISABLE THEM HERE. 



ENDIF 




IF 

NOT DMACNTL 


5C88 0680 


MVI 

B,80H 

•FLOPPY READ COMMAND. 

5C8A CD715C 


CALL DSKSET 

•SET UP DISK CONTROLLER 

5C8D BO 


ORA 

B 

rSET READ COMMAND 

5C8E D3F8 

READE: 

OUT 

DCOM 

•SEND COMMAND TO 1771. 

5C90 DBFC 

RLOOP: 

IN 

WAIT 

;WAIT FOR DRQ OR INTRQ. 

5C92 B7 


ORA 

A 

;SET FLPGS. 

5C93 F29D5C 


JP 

RDDONE 

:DONE IF INTRQ. 

5C96 DBFB 


IN 

DDATA 

rREAD A DATA BYTE FROM DISK 

5C98 77 


MOV 

M, A 

rPUT BYTE INTO MEMORY. 

5C99 23 


INX 

H 

INCRE!'4ENT MEMORY POINTER. 

5C9A C3905C 


JMP 

RLOOP 

7KEEP READING. 

5C9D DBF8 

FDDONE: 

IN 

DSTAT 

?READ DISK STATUS. 



ENDIF 




IF 

INTRP 

?IF INTERRUPTS ALLOWED, 



El 


;ALLCW A3AIN HERE. 



ENDIF 


5C9F E69D 


ANI 

9DH 

;LOCK AT ERROR BITS. 

5CA1 C8 


RZ 


?RETURN IF NCNE. 

5CA2 CDCE5C 


CALL ERCHK 

;CHECK FOR SEEK ERROR. 



IF 

TESTING 




LXI 

H,RECNT 

;GET RD ERR COUNT ADDR. 



INR 

M 

;ONE MORE ERROR. 



MOV 

A,M 




CMA 





OJT 

offh 




ENDIF 



5CA5 3ACD5D 


LDA ERCNT 


GET ERROR COUNT, 


/ 7 
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5CA8 3D 


DCR 

A 

;DECREMENT COUNT. 

5CA9 C2885C 


JNZ 

RRETRY 

;TRY TO READ AGAIN. 

5CAC 213E5D 


LXI 

H,RDMSG 

;PRINT "READ ". 

5CAF CD2A5D 

ERMSG: 

CALL PMSG 

;PRINT ORIGIN MESSAGE. 


ERMSG1: 






IF NOT VIDEO 

;NEED MORE ROOM? 

5CB2 7A 


MOV 

A,D 

;GET ERROR BITS. 

5CB3 E610 


ANI 

10H 

;IF BIT 4 IS HIGH, 

5CB5 21355D 


LXI 

H/RNMSG 

,-PRINT "RECORD NOT POUND" 

5CB8 C42A5D 


CNZ 

PMSG 


5CBB 7A 


MOV 

A/D 

;GET ERROR BITS. 

5CBC E608 


ANI 

8H 

;IF BIT 3 IS HIGH, 

5CBE 21395D 


LXI 

H/CRCMSG 

;PRINT "CRC ERROR". 

5CC1 C42A5D 


CNZ 

PMSG 




ENDIF 


5CC4 21545D 


LXI 

H/ERRMSG 

;PRINT "ERROR." 

5CC7 CD2A5D 


CALL PMSG 


5CCA 3E01 


mi 

A,1 

;SET FOR PERM ERR MSG. 

5CCC B7 


ORA 

A 

;SET FLAGS. 

5CCD C9 


RET 




; ERCHK 

- CHECK FOR RECORD NOT FOUND ERROR. 

5CCE 57 

ERCHK: 

MCV 

D,A 

;SAVE ERROR BITS IN D. 

5CCF E610 


ANI 

10H 

;IF RECORD NOT FOUND, 

5CD1 C8 


RZ 




CHECK FOR SEEK TO CORRECT TRACK, 
AND CHANGE IF NECESSARY. 


5CD2 3EC4 

CHKSK: 

MVI 

A/0C4H 

;SEND COMMAND TO 1771 

5CD4 D3F8 


OUT 

DCOM 

;TO READ ADDRESS. 



IF 

NOT DMACNTL 

5CD6 DBFC 


IN 

WAIT 

;WAIT FOR DRQ OR INTRQ. 



ENDIF 




IF 

DMACNTL 




CALL 

SLOOP 




ENDIF 


5CD8 DBFB 


IN 

DDATA 

;READ THE TRACK ADDRESS. 

5CDA 47 


MOV 

B,A 

;SAVE IN REGISTER B. 

5CDB DBFC 

CHKS2: 

IN 

WAIT 

;WAIT FOR INTRQ. 

5CDD B7 


ORA 

A 

;SET FLAGS. 

5CDE F2E65C 


JP 

CHKS3 

;DONE WITH READ ADR OP. 

5CE1 DBFB 


IN 

DDATA 

;READ ANOTHER BYTE. 

5CE3 C3DB5C 


JMP 

CHKS2 

;DO IT AGAIN. 

5CE6 DBF8 

CHKS3: 

IN 

DSTAT 

;READ DISK STATUS. 

5CE8 B7 


ORA 

A 

?SET FLAGS. 

5CE9 CAF55C 


JZ 

CHKS4 

;READ ADR OK IF 0. 

5CEC CDC65B 


CALL 

HOME 

/•OTHERWISE, HOME FIRST. 

5CEF 3ABC5D 

CHKS5: 

LDA 

TRK 


5CF2 C30B5C 


JMP 

SEEK 


5CF5 78 

CHKS4: 

MOV 

A,B 

/•UPDATE TRACK REGISTER. 

5CF6 D3F9 


OUT 

TRACK 


5CF8 C3EF5C 


JMP 

CHKS5 

/•RETURN FROM ERCHK. 


; WRITE THE , 

SECTOR AT SECT, CN THE PRESENT TRACK 


; USE 

STARTING ADDRESS AT DMAADD. 

5CFB 3 EX) A 

WRITE: 

MVI 

A,RTCNT 

;GET RETRY COUNT. 
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WREERY: 




IF 

DMACNTL 




LXI 

B,0A0D0H 

; FLOPPY WRITE, FORCE INTRP 



LXI 

D,08080H 

;DMA WRITE, BYTE COUNT 



CALL DMARW 

;COMMON ROUTINE 



ENDIF 




IF 

NOT DMACNTL 

5CFD 

06 AO 

MVI 

B,0A0H 

; WRITE COMMAND 

5CFF 

CD715C 

CALL 

DSKSET 


5D02 

BO 

ORA 

B 


5D03 

D3F8 

WRITE2: OUT 

DCOM 


5D05 

DBFC 

WLOOP1: IN 

WAIT 

;WAIT FOR READY. 

5D07 

B7 

ORA 

A 

;SET FLAGS. 

5D08 

F2125D 

JP 

WDONE 

;HOP OUT WHEN DONE. 

5D0B 

7E 

MOV 

A,M 

;GET BYTE FROM MEM. 

5D0C 

D3FB 

OUT 

DDATA 

;WRITE CNTO DISK. 

5D0E 

23 

INX 

H 

; INCREMENT MEM PER. 

5D0F 

C3055D 

JMP 

WLOOP1 

;KEEP WRITING. 

5D12 

DBF8 

WDONE: IN 

DSTAT 




ENDIF 




IF 

INTRP 

?IF INTERRUPTS ALLOWED, 



El 


?ENABLE AGAIN HERE. 


. ENDIF 


5D14 E6FD 

ANI OFDH 

;LOCK AT THESE BITS. 

5D16 C8 

RZ 

;RETURN IF NO ERR. 

5D17 CDCE5C 

CALL ERCHK 

;CHECK/CORRECT SEEK ERR. 


IF TESTING 

;IF TESTING FOR ERRORS 


LXI H,WECNT 

;GET ADR OF WRITE ERR CTR. 


INR M 

MOV A,M 

CMA 

OUT OFFH 

ENDIF 

;ONE MORE WRITE ERROR. 

5D1A 3ACD5D 

LDA ERCNT 

;GET ERROR COUNT. 

5D1D 3D 

DCR A 

; DECREMENT COUNT. 

5D1E C2FD5C 

JNZ WRETRY 

;TRY TO WRITE AGAIN. 

5D21 21465D 

LXI H,WTMSG 

;PRINT "WRITE ". 


IF NOT VIDEO 

jNEED MORE ROOM? 

5D24 CD2A5D 

CALL PMSG 


5D27 C3B25C 

JMP ERMSG1 
ENDIF 

;DO COMMON MESSAGES. 


IF VIDEO 

JMP ERMSG 
ENDIF 

;WE NEED A RETURN. 


PRINT THE MESSAGE AT H&L UNTIL A ZERO. 


5D2A 7E 

• 

PMSG: 

MOV 

A,M 

;GET A CHARACTER. 

5D2B B7 


ORA 

A 

;IF IT'S ZERO, 

5D2C C8 


RZ 


;RETURN. 

5D2D 4F 


MOV 

C,A 

;OTHERWISE, 

5D2E CD025B 


CALL CCNOT 

; PRINT IT. 

5D31 23 


INX 

H 

;INCREMENT H&L, 

5D32 C32A5D 


JMP 

PMSG 

;AND GET ANOTHER. 


9 
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; CBIOS MESSAGES 
® 

IF NOT VIDEO ;NEED MORE ROOM? 

5D35 49442000 RNMSG: DB 'ID ',0 
5D39 4352432000CRCMSG: DB 'CRC ',0 

ENDIF 


5D3E 0D0A526561RDMSG: DB 
5D46 0D0A57726 9WTMSG: DB 
5D4F 426F6F7420BTMSG: DB 
5D54 4552524F52ERRMSG: DB 
5D5B 0D0A536565SKMSG: DB 
5D63 0D0A4D6F7 5MNTMSG: DB 
5D6C 0D0A54617 2SMSG: DB 
5D76 3234 DB 
5D78 4B2043504D DB 
5D8D 0D0A DB 


0DH,0AH,'Read ',0 
0DH,0AH,'Write ',0 
'Boot ' 

'ERROR.',0 
01X1,0AH, 'Seek ',0 
0DH,0AH,'Mount ',0 
0DH,0AH,'Tarbell ' 

MSIZE/IO+'O',MSIZE MOD 10 + 'O' 
'K CPM VI.4 Of 10-1-80' 

0DH,0AH 


IF TARBELL ;IF USING TARBELL CHJ. 
DB 'Tarbell CPU, ' 

ENDIF 


5D8F 5374616E64 


IF STD ;IF STANDARD I/O, 

DB 'Standard ' 

ENDIF 


IF MSI02 ;IF MITS 2SIO, 

DB '2SIO ' 

ENDIF 

IF ISI02 ;IF IMSAI SIO-2, 

DB 'SIO-2 ' 

ENDIF 


IF TUART ;IF TUART, 

DB 'Tuart ' 

ENDIF 


IF SOLOS ;IF PROC TECH SCLOS, 

DB 'Solos ' 

ENDIF 


IF VDM ;IF PROC TECH VDM, 

DB 'VDM ' 

ENDIF 


IF FLASH ;IF VG FLASHWRITER, 

DB 'Flashwriter ' 

ENDIF 


IF VB1 ;IF SSM VB1-B, 

DB 'VB1 ' 

ENDIF 


IF DUBSID ;IF DOUBLE-SIDED, 

DB 'Double-Sided ' 

ENDIF 

IF DUAL ;IF DUAL DRIVE, 

DB 'Dual ' 

ENDIF 
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IF DMACNTL 

DB 'DMA ' 

ENDIF 

;IF USING DMA CONTROL 

5D98 

5645522E 


DB 'VER.' 


5D9C 

0D0A486F77 

DB ODH,OAH,'How Many Disks? ',0 



; WRITE 

A CHARACTER ON 

LISTING DEVICE. 



LIST: 

IF LSTNUL 

;IF NULLS OR PAGING, 




MVI A, ODH 

;IF IT'S A CR, 




CMP C 

;THEM HOP OUT TO 




JZ LINUL 

ENDIF 

;NULL ROUTINE. 




IF LSTPAG 

;IF PAGING 




MVI A,OAH 

;GET A LINEFEED 




CMP C 

JZ LINUL3 

ENDIF 

;DOES IT MATCH? 

5DAF DB02 

LIBSY: 

IN LSTAT 

;READ LISTER STATOS. 




IF NOT TARDEL 


5DB1 

E680 


ANI LRBIT 

ENDIF 

;LOCK AT READY BIT. 




IF TARDEL 

ANI 81H 

XRI 81H 

;MASK 


ENDIF 

IF TARDEL OR KDYLO ;IF READY WHEN LCW, 

5DB3 C2AF5D JNZ LTBSY ;LOOP TILL LCW. 

ENDIF 

IF NOT TARDEL AND RDYHI ;IF READY WHEN HIGH, 

JZ L1BSY ;LOOP TILL HIGH. 

ENDIF 

5DB6 79 MOV A,C ;GET DATA BYTE. 

5DB7 D303 CUT LDATA ; PRINT IT. 

5DB9 C9 RET ;RETURN FROM LIST. 

IF LSIMJL OR LSTPAG ;IF NULLS OR PAGING, 

LINUL: PUSH B ;SAVE B&C. 

MVI B,(LNULL AND OFFH)+1 ;GET NULL COUNT 
LINUL1: CALL LIBSY ;PRINT (CR FIRST). 

MVI C,0 ;GET NULL CHAR. 

DCR B DECREMENT COUNTER. 

JNZ LINUL1 ;D0 NEXT NULL. 

JMP LINUL2 ;EXIT IHE ROUTINE. 

ENDIF 

IF LSTPAG ;IF LIST DEV. PAGING, 

LINUL3: PUSH B ;SAVE B,C PAIR 

LDA LFCNT ;GET LINE-FEED COUNT. 

INR A ; INCREMENT IT. 

STA LFCNT ;SAVE IT BACK. 

CPI LINCNT-(LINCNT/11) ;END OF PAGE? 

-■'I B,1 ;SET UP FOR 1 LF. 
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JNZ NOTEOP ;HOP IF NOT END. 

XRA A ;SET LF COUNT * 0. 

STA LFCNT 

MVI B, (LINCNT/11) +1 ;BETWEEN PAGES. 

MVI C,0AH ;GET LINE-FEED CODE. 

CALL LTBSY ;PRINT LINE-FEED. 

DCR B /DECREMENT LF COUNTER. 

JNZ LSTPA1 ;DO NEXT LINE FEED? 


STA LFCNT 
MVI B,(LIN 
NOTEOP: MVI C r 0AH 
LSTPA1: CALL LTBSY 
DCR B 
JNZ LSTPA1 
ENDIF 


5DBA C9 


IF LSINUL OR LSTPAG ;IF NULLS OR PAGING, 
LINUL2: POP B ; RESTORE B&C. 

MOV A,C ; RESTORE A. 

RET ;RETURN FROM LIST. 

ENDIF 


PUNCH PAPER TAPE. 


RJNCH: RET 


/RETURN FROM KJNGH. 


NORMALLY USED TO READ PAPER TAPE. 


5DBB C9 READER: RET /RETURN FRCM READER. 

/NOTE: AS THERE ARE CNLY NINE SECTORS 
/AVAILABLE FOR GBIOS CN THE SECOND SYSTEM TRACK (1) , 
/THE LAST ADDRESS BEFORE THIS POINT SHOULD BE NO 
/GREATER THAN THE CBIOS STARTING ADDRESS + 047F (HEX) . 

/THIS WILL NORMALLY BE XE7F (HEX) . 

• 

/ BIOS SCRATCH AREA. 

« 

5DBC TRK: DS 1 ' /CURRENT TRACK NUMBER. 

5DBD SECT: DS 1 /CURRENT SECTOR NUMBER. 

5DBE DMAADD: DS 2 /DISK TRANSFER ADDRESS. 

/ THE NEXT SEVERAL BYTES, BETWEEN STARTZ AND 

/ ENDZ, ARE SET TO ZERO AT COLD BOOT TIME. 

• 

/ 

STARTZ: /START OF ZEROED AREA. 

5DC0 DISKNO: DS 1 /DISK NUMBER (TO CP/M). 

I 

IF TESTING 


ERROR COUNTS. THESE LOCATIONS KEEP TRACK OF THE 
NUMBER OF ERRRS THAT OCCUR DURING READ, WRITE, 

OR SEEK OPERATIONS. THEY ARE INITIALIZED CNLY 
WHEN A COLD-START IS PERFORMED BY THE BOOOTSTRAP. 


RECNT: DS 1 /READ ERROR COUNT. 

WECNT: DS 1 /WRITE ERROR COUNT. 

SECNT: DS 1 /SEEK ERROR COUNT. 

ENDIF 

/ SPECIAL FLAGS. 

5DC1 CQNOTF: DS 1 /NO-PRINT FLAG (WHEN FF) . 

5DC2 HLSF: DS 1 /HEAD-LOAD SELECT FLAG. 

IF LSTPAG 

LFCNT: DS 1 /PAGING LINE-FEED COUNT. 

ENDIF 
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TRTAB - DISK TRACK TABLE - PRESENT POSITION CF 
HEADS FOR UP TO 4 DRIVES. 


5DC3 

TRTAB: 

DS 

4 

5DC7 

DRVFLG: 

DS 

4 

5DCB 

DENS: 

DS 

1 


VDM SCRATCH AREA. 



f 

ENDZ: 

IF 

VIDEO 


VDMP: 

DS 

2 



ENDIF 

5DCC 

NCDSKS: 

DS 

1 

5DCD 

ERCNT: 

DS 

1 

5DCE 

SERCNT: 

DS 

1 

5DCF 

LATCH: 

DS 

1 

5DD0 

CLATCH: 

DS 

1 

5DD1 

DBUFF: 

DS 

128 

5E51 


END 



; DRIVE FLAG BYTES FOR 4 DRIVES 
; CURRENT DRIVE FLAG BYTE 


;END OF ZEROED AREA. 

;IF VIDEO BOARD IN, 
;VIDEO CURSOR POSITION. 


;NUMBER CF DISKS. 

;ERROR COUNT FOR RETRIES. 
;SEEK RETRY COUNTER. 

;NEW CODE FOR LATCH. 

;CURRENT CODE IN LATCH. 

; DENSITY SELECT BUFFER 
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/ TARBELL ELECTRONICS CP/M COLDSTART LOADER 
I VERSION CF 7-31-80. 

3 Modified for DMA Control - 1-5-80. 

3 Modified for reading larger bios from TRK 1 - 6-5-80. 

; Modified for Tarbell CPU Card - 7-3-80. 

3 G.W.Mulchin 
3 Tarbell Electronics 

; Copyright (c) 1980 Tarbell Electronics 

m 

** NOTE ** 

; The equate for Double Density (DOUBDEN) must only be 

3 set true for a disk which is formatted in double density only 
/ and one which you wish to put an operating system on to. 

3 Otherwise, leave it false if you are building an operating 
3 system on to a single density formatted disk. 

7 

3 THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROGRAM, 
/ AND EXECUTED. ITS RJRPQSE IS TO LOAD AND EXECUTE THE CP/M DISK 
3 OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. 


pooo = FALSE EQU 0 ;DEFINE VALUE OF FALSE. 

FFFF = TRUE EQU NOT FALSE ;DEFINE VALUE OF TRUE. 


********* THIS IS THE AREA TO MAKE CHANGES IN ******************* 
********* FOR DIFFERENT SYSTEM CONFIGURATIONS ******************* 

kk 


0018 = 

MSIZE 

EQU 

24 

;MEMORY SIZE IN DECIMAL KB. 

** 

0000 = 

TARBELL 

EQU 

FALSE 

;TRUE IF USING TARBELL CPU. 

** 

0000 = 

DUBSID 

EQU 

FALSE 

?TRUE FOR DOUBLE SIDED SYSTEMS. 

** 

0000 = 

DELTA 

EQU 

FALSE 

;TRUE IF USING DELTA CPU CARD 

** 

0000 = 

DOUBDEN EQU 

FALSE 

/TRUE IF DOUB. DEN DISK. 

kk 

0000 = 

DMACNTL 

EQU 

FALSE 

;TRUE IF USING DMA CONTROL 

kk 

0000 = 

BASE 

EQU 

0 

;TARBELL I/O PORTS (00 or 10 HEX) 

kk 

001A = 

SET 

EQU 

26 

;NUMBER OF SECTORS PER TRACK. 

kk 

001A = 

EDS 

EQU 

26 

;sectors in trk 1 , (Range = 26 to 51) 

kk 

00F8 = 

DISK 

EQU 

0F8H 

?DISK PORT BASE ADDRESS. 

kk 


******&********************************************************** 




IF 

TARBELL 



IO 

EQU 

BASE 

;i/o ports on tarbell cpu. 


MMENB 

EQU 

IOflO 

;memory management enable port 


memmag 

EQU 

BASE+32 

/memory management port. 



ENDIF 


00E0 = 

ADR0 

EQU 

0E0H 

;DMA ADDRESS PORT. 

00E1 - 

WCT0 

EQU 

0E1H 

/DMA WORD COUNT PORT. 

00E8 = 

CMND 

EQU 

0E8H 

/DMA COMMAND PORT. 

00F8 = 

DCOM 

EQU 

DISK 

;COMMAND PORT. 

00F8 = 

DSTAT 

EQU 

DISK 

3 STATUS PORT. 

OOF 9 « 

TRACK 

EQU 

DISK+1 

/TRACK PORT. 

00FA = 

SECT 

EQU 

DISK+2 

/SECTOR PORT. 

00FB = 

DATA 

EQU 

DISK+3 

/DATA PORT. 

00FC = 

WAIT 

EQU 

DISK+4 

/WAIT PORT. 

00FC = 

DCONT 

EQU 

DISK+4 ' 

/CONTROL PORT. 

00FD « 

DMACHK 

EQU 

DISK+5 

/DMA CHECK PORT. 

00FF = 

PANEL 

EQU 

0FFH 

/front panel machines. 
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0019 

SS 

SDS 

EQU 

25 

;always 25 sectors to read in trk 1 

1C00 

as 

(BASE 

EQU 

(MSIZE-17)*1024 

4500 

ss 

CPMB 

EQU 

CBASE+2 90 OH;START OF CP/M. 

5A00 

= 

BOOTE 

EQU 

CBASE+3 EO0H; COLD BOOT ENTRY POINT. 

0033 

ss 

NSECTS 

EQU 

SDS + DDS 

;SECTORS OF CP/M. 

OOOA 

ss 

RTCNT 

EQU 

10 

;NUMBER OF RETRYS. 

0000 


/ 

ORG 

0 

; START OF LOADER. 



BOOT: 

IF 

TARBELL 

;IF USING TARBELL CRJ 




OUT 

MMENB 

; ENABLE MEMORY MANAGEMENT. 




LXI 

D,1000H 

;COUNT=16, DATA BYTE = 0 




MVI 

C,MEMMAG AND OFFH 



ML OOP: 

MOV 

A, E 

;GET ADDRESS VALUE 




ORA 

C 

;MAKE I/O PORT VALUE 




STA 

MOUTH 

;MODIFY PORT ON THE FLY 




MOV 

A,E 

;GET INIT VALUE. 




CMA 


;FLIP IT FOR RAM ON CHJ 



MOOT: 

OUT 

BASE 

; PUT IT TO RAM CN CPU 




INR 

E 

;BUMP DATA VALUE 




DCR 

D 

;DECREASE COUNT 




JNZ 

MLOOP 

;LOOP 16 TIMES. 




ENDIF 




r 

IF 

DELTA 

;IF USING DELTA CPU. 




MVI 

A,1 

;GET A 1 IN REG A. 




OUT 

9 

; AND DISABLE CPU ROM SLOT. 




ENDIF 


0000 

1E0A 

t 

MVI 

E,RTCNT 

;GET RETRY COUNT. 

0002 

310001 

BLOOP: 

LXI 

SP,100H 

;SET STACK POINTER. 

0005 

210045 


LXI 

H,CFMB 

;CP/M STARTS HERE. 

0008 

1633 


MVI 

D,NSECTS 

;NUMBER OF SECTORS TO READ. 

OOOA 

0E02 


MVI 

C,2 

;SECTOR NUMBER. 

OOOC 

0604 

RNTRK: 

MVI 

B,4 

;FOR HEAD LOAD. 

OOOE 

CD2900 

RNSEC: 

CALL READ 

;READ FIRST SECTOR. 

0011 

15 


DCR 

D 

;IF DONE, 

0012 

CA005A 


JZ 

BOOTE 

;GO TO CP/M. 

0015 

0600 


MVI 

B,0 

;FOR NO HEAD LOAD. 

0017 

OC 


INR 

C 

;INCREMENT SECTOR COUNT. 

0018 

79 


MOV 

A,C 

;DQNE WITH 

0019 

FE1B 

SECCMP: 

CPI 

SPI4-1 

;THIS TRACK? 

001B 

DAOEOO 


JC 

RNSEC 

?IF NOT, READ NEXT SECTOR. 



t 

IF 

DOUBDEN AND NOT DUBSID 



' 

MVI 

A,DDS + 1 

;number of sectors to read on trk 2 




STA 

SEOCMPH 

;modify sector compare value. 




MVI 

A, 8 

;GET SET DOUBLE DENSITY CODE 




OUT 

WAIT 

;SET LATCH FOR D. DENSITY 




ENDIF 




t 

IF 

NOT DUBSID 


001E 

3E5B 


MVI 

A,5BH 

;STEP COMMAND. 

0020 

D3F8 


OUT 

DCOM 

; ISSUE IT. 

0022 

DBFC 


IN 

WAIT 

;WAIT UNTIL DONE. 




ENDIF 




f 

IF 

DUBSID 

;IF DOUBLE SIDED SYSTEM. 




MVI 

A,40H 

;SIDE SELECT COMMAND. 




OUT 

DCONT 

; ISSUE IT. 




ENDIF 
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0024 0E01 

• 

t 

mi 

C,1 

;SECTOR NUMBER. 

0026 C30C00 


JMP 

RNTRK 

;READ NEXT TRACK. 


READ: 

IF 

DMACNTL 

;IF USING DMA CONTROL. 



MVI 

A r 41H 

;SET UP FOR CHAN 0 REQ. 



OUT 

CMND 




MVI 

A,7FH 

;COUNT FOR 128 BYTES 



OUT 

WCTO 




MVI 

A,40H 

?READ COMMAND 



OUT 

WCTO 




MOV 

A,L 

;GET LOW ADDRESS BYTE 



OUT 

ADRO 




MOV 

A r H 

;HIGH ADDRESS BYTE 



OUT 

ADRO 



• 

ENDIF 


0029 79 

t 

MOV 

A,C 

? SECTOR IN A. 

002A D3FA 


OUT 

SECT 

;SET SECTOR REGISTER. 

002C 3E88 


MVI 

A,88H 

;COMMAND FOR READ. 

002E BO 


ORA 

B 

;GET HEAD LOAD BIT. 

002F D3F8 


OUT 

DCOM 

;ISSUE COMMAND. 


i 

IF 

NOT DMACNTL;IF NOT USING DMA CONTROL. 

0031 DBPC 

RLOOP: 

IN 

WAIT 

;WAIT FOR DRQ. 

0033 B7 


ORA 

A 

;SET FLAGS. 

0034 F23E00 


JP 

CHECK 

;JUMP IF DONE. 

0037 DBFB 


IN 

DATA 

;READ DATA. 

0039 77 


MW 

M,A 

;PUT IN MEMORY. 

003A 23 


INX 

H 

;INCREMENT POINTER. 

003B C33100 


jmp 

RLOOP 

;LOOP UNTIL DONE. 


; 

ENDIF 



IF 

DMACNTL 



SLOPP: 

IN 

DMACHK 

;CHECK DMA STATUS 



RLC 


; BIT 7 



JC 

SLOPP 

;LOOP IF CARRY 



PUSH B 

;SAVE B,C PAIR 



LXI 

B,128 

;COUNT SET FOR 128 BYTES 



DAD 

B 

;ADJUST H,L BY 128 BYTES 



POP 

B 

; RESTORE BC 


? 

CHECK: 

ENDIF 


003E DBF8 

IN 

DSTAT 

;READ STATUS. 

0040 E69D 


ANI 

9DH 

;LOCK AT ERROR BITS. 

0042 C8 


RZ 


;OK IF ZERO. 

0043 ID 


DCR 

E 

; DECREMENT RETRY COUNT. 

0044 C20200 


JNZ 

BLOOP 

jTRY AGAIN IF NOT ZERO. 

0047 2F 


CMA 


;flip for front panel 

0048 D3FF 


OUT 

PANEL 

;show error code from floppy. 

004A C34AQ0 

HERE: 

JMP 

HERE 

;LQOP. 

007D 

J 

ORG 

7DH 

;PUT JUMP HERE. 

007D C7 


RST 

0 

;USE RESTART 


} 

IF 

DOUBDEN 




DB 

ODDH 

;THIS BYTE MUST BE HERE IF DOUB DEN. 



DB 

0 

;THIS BYTE UNUSED 



ENDIF 



t 


IF NOT DOUBDEN 



• FILE: DBOOT24 PRN 


PAGE 004 DATE / TIME Oct 1,1980 1 2:15 PM 


007 E E5 DB 0E5H 

007F 00 DB 0 

ENDIF 

0080 * END BOOT ;END OF BOOT. 
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Tar be .11 Electronics 
I.O. FILES foi CP/M PIuc vers. 1.0 
Version ol 4-14-BJ 

Copyright (c) 1983 - Tarbcll Electronics 

Here is the first release ol the 1.0. drivers ncccessaty to 
implement CP/M plus on The Tarbell Computer. This version lias 
been tested to run in a banked or non-banked configuration. 

The following is a description ot the various files: 

512COPY.COM - This utility is used to copy a 512 byte per sector, 
deblocked disk to another. This utility only runs under CP/M 2 or 
a non-banked CP/M plus. 

512FMT - This utility is used to format a diskette to the 512 
byte per sector deblocked format. Track 0, side 0 is formatted to 
26 x 128 byte sectors. Track 0, side 1, and all the other tracks 
are formatted to 16 x 512 byte sectors. This utility only runs 
under CP/M 2 or a non-banked CP/M plus. 

512SGEN - This utility is used to place the CPMLDR+3B00T image 
onto the system tracks of a 512 x 16 deblocked disk. It functions 
essentially the same as SYSGEN or WRTSYS. This utility only runs 
under CP/M 2. It will NOT run under CP/M plus at all. 

COPYSYS - This is Digital Reaearchs' CP/M plus version of SYSGEN. 
It works on single density single sided disks only. If you place 
your CP/M plus on a single density single sided disk it will work 
fine and COPYSYS will copy it. * * * NOTE * * * You gan generate a 
single sided single density disk for booting if you wish and 
still use the full capabilities of TAR3DVR. After the system is 
up the disk in drive A: may be changed to any Tarbell format as 
long as each disk which is placed in drive A: has a copy of 
CCP.COM on it. 

TAR3DVR.ASM - This is the floppy disk driver module for The 
Tarbell double density controller. It is auto select and supports 
all 6 Tarbell disk formats. It has been tested on all 6 formats 
and works ok. 

MOVE.ASM - This is the memory management module. It contains the 
move , xmove and bank select routines . The bank select routine 
uses a memory segment table to set up the memory manager on the 
Tarbell epu board. Each byte in the memory segment table defines 
a 4K segment of memory. The most significant 4 bits of each byte 
become address lines 19,18,17 & 16 while‘the lower 4 bits become 
address lines 15,14,13 & 12. It takes 16 bytes to define a full 
64K bytes of memory I.E. 16-4K segments. Notice that the first 16 
bytes in the memory segment table are consecutive from OOh to 
Ofh. This is because of the fact that when the epu board is reset 
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the memory manager is disabled and since tin CPMLDR .loads the 
system into bank 0, the memory segment tabl>. must be such that 
bank 0 acts as if there is no translation of addresses. (L)0 NOT 
ALTER THE FIRST 16 BYTES IN THE MEMORY SEGMENT TABLE) Notice also 
that the last 4 bytes of each 16 byte bank definition are always 
Och, Odh, 0 eh, Of h. This is the COMMON area of memory referred to in 
the CP/M plus documentation. Changing these bytes will result in 
instant system crash. The first 12 bytes ol the bank 1 definition 
should remain unchanged to be compatible with future releases of 
Tarbell disk utilities. The remaining bytes may be changed to 
reflect your memory situation as long as the- last 4 bytes in each 
bank definition remain common. As shipped the- memory table is set 
up to handle from 128K to 256K of memory. Using CP/M plus in the 
banked configuration with less than 128K is possible but requires 
some alteration of the memory segment table to use a larger 
common area. If you wish to use only 128K, all that is necessary 
is to use GEN CPM to redefine the memory available. The MOVE 
module also contains a few public routines for use by other 
modules , chief of which is the routine which returns tlie real 
memory address for disk dma operations. 

BOOT.ASM - This module performs some initialization and reads in 
the CCP.COM file on cold boot and reloads it on warm boot. It 
also prints the signon message. Also contained in the boot module 
is the initialization and interrupt service routines for the real 
time clock. 

3 BOOT. AS M - This is the cold boot code that goes on the first 
sector of the disk and reads in the CPMLDR. It has equates for 
use with single or double sided sided (DUBS1D), single or double 
density (DUBDEN), and deblocked or non deblocked (DBLK) disks. 
Note - if DBLK is true, DUBDEN is ignored. As shipped, 3B00T is 
setup for double sided deblocked disks. 

DRVTBL.AS M - This module contains a list of 16 addresses which 
point to all of the disk drive dph's in the system. A drives disk 
parameter header or dph contains the information or addresses of 
information which describes each particular disk drive to the 
CP/M plus. An extension of each dph (xdph) also contains t he¬ 
addresses of the read, write, init and login routines for each 
drive. The order of the drvtbl list determines the designation 
letter of the drive. The first word in the list addresses the dph 
for drive A: the second word addresses the dph for drive B: and 
so on. If a disk does not exist, OOOOh must be inserted in the 
list and the list must always be 16 words long, no Les no more. 
The DTBI. macro is used to assure that the- length of the drive- 
table is always 16 words. 


2 



CHARIO.ASM - This module contains the character out , character 
in and 1.0. device initialization routines. These routines are 
table driven and will support up to 16 serial 1.0. devices. 
Presently it is set up for the 2 serial ports on the Tarbell 
CPU/10 board. More devices may be added by expanding the tables 
or non Tarbell 1.0. may be used by changing the bytes in the 
tables. The last byte in the table is reserved for future use. I 
plan to add ETX/ACK handshaking and possibly parallel 1.0. in the 
future. The initialization strings are defined by byte 6 in tire 
table for any particular device , a 00h in byte 6 means no init, 
otherwise the high order nibble defines which init string to use 
and the low order nibble defines the length of the string. If 
init is used the string is simply output one byte after another 
to the command port of the device. Fancier init must be 
implemented by the user (in the boot module maybe). This module 
has been fully tested and works very well on Tarbell stuff. 

LDRDVR.ASM - This is a revamped copy of TAU3DVR which has the 
dph's and dpb's hand coded for use in the CPMLDR utility. This 
module has been tested and works. 

LDRKRNL.ASM - This is a revamped copy of the BIOSKRNL for use by 
the CPMLDR . 

GENBIOS.SUB - A submit file to make linking your BI0S3.SPR 
easier. 

GENBBIOS.SUB - A submit file to make linking your ENKBI0S3.SPR 
easier. 

GENLDR.SUB - A submit file to make linking your CPMLDR.COM 
easier. 






*** BUILDING YOUR CP/M PLUS SYSTEM DISK *** 

The first thing you must do is make a backup copy of all 
three disks. Use only your copies to work with and put the 
originals in a safe place. 

Next you will need to format and sysgen a work disk in the 
highest capacity format you have. Preferably 51 2x16-dehl ocked- 
double sided. 

Next place a copy of PIP.COM and SUBM1T.COM on the new disk. 
Then rename PIP.COM to OPIP.COM and SUBMIT.COM to OSUBMIT.COM on 
the new disk.The reason for this is that the CP/M plus version of 
these utilities will not run under CP/M 2. 

Place your work disk in drive A: and reboot the system. Then 
use OPIP to copy all the files from your three backup disketts to 
your work disk. Be sure to use the 10V] options. 

A>0PIP A:=B:*.*(0V] 

If you do not now have a debl oc ked, doubl e sided system you 
will need to edit the 3B001LASM file before you can boot up CP/M 
plus direct. Also if your aisx drives will not step at 3 msec, 
you must edit TAR3DVR.ASM and LDRDVFLASM to change the step rate 
equate to the proper value. 

If you are planning to bring up a non-banked system first 
you must edit the BIOSKRNL.ASM file and change the BANKED equate 
to FALSE. 

The above modules as well as some of the modules provided by 
Digital Research must be assembled with RMAC and linked with LINK 
to obtain the bios for CP/M plus. Use the following command lines 
to assemble and link the bios. You must use ZASM to assemble 
3BOOT. ' 


A>0SUBMIT ASMALL Assembles everything 

A>0SUBMIT GENBIOS For a non-banked system 

OR 


A>OSUBMIT GENBBIOS For a banked system 

After you have linked your bios you must use GENCPM to 
create a CPM3.SYS file. This is what the CPMLDR loads on cold 
boot. You must reserve 1 page at the bottom of all memory 
segments defined in GENCPM. This is to avoid blowing up the real 
time clock interrupt vector as well as any future interrupt 
capabilities. If you specify a banked membry system the following 
samples may be helpful. 
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For a 128K system: 

CP/M 3.0 System Genet at ion 
Copyright (C) 1982, Digital Research 

Default entries are shown in (parens). 

Default base is Hex, precede entry with # for 

Use GENCPM.DAT for defaults (Y) ? 

Create a new GENCPM.DAT file (N) > 

Display Load Map at Cold Boot (Y) ? 

Number of console columns (#80) ? 

Number of lines in console page (#24) ? 
Backspace echoes erased character (N) ? 

Rubout echoes erased character (N) ? 

Initial default drive (A:) ? 

Top page of memory (FF) ? 

Bank switched memory (Y) ? 

Common memory base page (CO) ? 

Long error messages (Y) ? 

Accept new system definition (Y) ? 

*** Bank 1 and Common are not included *** 

*** in the memory segment table. *** 

Number of memory segments (#2) ? 

CP/M 3 Base,size,bank (88,38,00) 

Enter memory segment table: 

Base,size,bank (01,87,00) ? 

Base,size,bank (01,3F,04) ? 

CP/M 3 Sys 8800H 3800H Bank 00 
Memseg No. 00 0100H 8700H Bank 00 
Memseg No. 01 0100H 3F00H Bank 04 

Accept new memory segment table entries (Y) ? 

Setting up directory hash tabl.s: 

Enable hashing for drive A: (Y) ? 

Enable hashing for drive B: (Y) ? 

Setting up Blocking/Deblocking buffers: 

The physical record size is 0200H: 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0087H, Other banks 


decimal 


= 0039H 
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( 


Number of directory buffers for diive A: (#32) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0045H, Other banks = 0G39H 

Number of data buffers for drive A: (#60) ? 
Allocate buffers outside of Common (Y) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0001H, Other banks = 0001H 

Number of directory buffers for drive B: (#0) ? 

Share buffer(s) with which drive (A:) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0001H, Other banks = 0001H 

Number of data buffers for drive B: (#0) ? 

Share buffer(s) with which drive (A:) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0001H, Other banks = 0001H 

Accept new buffer definitions (Y) ? 


BNKBIOS3 SPR FA00H 0600H 
BNKBIOS3 SPR B000H 1000H 

RESBDOS3 SPR F400H 0600H 

BNKBDOS3 SPR 8200H 2E00H 


*** CP/M 3.0 SYSTEM GENERATION DONE *** 


f 
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For a 256K system: 

CP/M 3.0 System Generation 
Copyright (C) 1982, Digital Research 

Default entries are shown in (parens). 

Default base is Hex, precede entry with # for decimal 

Use GENCPM.DAT for defaults (Y) ? 

Create a new GENCPM.DAT file (N) ? 


Display Load Map at Cold Boot (Y) ? 

Number of console columns (#80) ? 

Number of lines in console page (#24) ? 
Backspace echoes erased character (N) ? 
Rubout echoes erased character (N) ? 

Initial default drive (A:) ? 


Top page of memory (FF) ? 

Bank switched memory (Y) ? 

Common memory base page (CO) ? 

Long error messages (Y) ? 


Accept new system definition (Y) ? 


*** Bank 1 and Common are not included *** 
*** in the memory segment table. *** 

Number of memory segments (#4) ? 

CP/M 3 Base,size,bank (88,38,00) 

Enter memory segment table: 


Base,size,bank (01,87,00) ? 

Base,size,bank (01,BF,02) ? 

Base,size,bank (01,BF,03) ? 

Base,size,bank (01,BF,04) ? 

CP/M 3 Sys 8800H 3800H Bank 00 
Memseg No. 00 0100H 8700H Bank 00 

Memseg No. 01 0100H BF00H Bank 02 

Memseg No. 02 0100H BF00H Bank 03 

Memseg No. 03 0100H BF00H Bank 04 

Accept new memory segment table entries (Y) ? 

A 

Setting up directory hash tables: 


Enable hashing for drive A: (Y) ? 
Enable hashing for drive B: (Y) ? 
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Setting up Blocking/Deblocking bulfers: 
The physical record size is 0200H: 


C 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0087H, Other banks = 0237H 

Number of directory buffers for drive A: (#43) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 002EH, Other banks = 0237H 

Number of data buffers for drive A: (#255) ? 
Allocate buffers outside of Common (Y) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0020H, Other banks = 0039H 

Number of directory buffers for drive B: (#0) ? 

Share buffer(s) with which drive (A:) ? 

Available space in 256 byte pages: 

r TPA = 00F4H, Bank 0 = 0020H, Other banks = 0039H 

Number of data buffers for drive B: (#0) ? 

Share buffer(s) with which drive (A:) ? 

Available space in 256 byte pages: 

TPA = 00F4H, Bank 0 = 0020H, Other banks = 0039H 



Accept new buffer definitions (Y) ? 

BNKBIOS3 SPR FA00H 0600H 
BNKBIOS3 SPR A400H 1C00H 
RESBD0S3 SPR F400H 0600H 
BNKBDOS3 SPR 7600H 2E00H 

*** CP/M 3.0 SYSTEM GENERATION DONE *** 

I chose to share buffers, as this provides for dynamic use 
of the buffers. (I.E. if one drive has more activity it gets more 
buffers.) A limitation of GENCPM is that you cannot assign more 
than 255 data buffers to one drive. 

In a non-banked system I recommend that you use only 1 
directory and 1 data buffer and share them on all drives. This 
will give you the largest tpa possible. 
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Finally you must creat a CPMLDR.COM and either execute it by 
typing A>CPMLDR or place it on to the system track along with the 
3B00T to boot directly. Use the following to link the CPMLDR.COM. 

A>0SUBMIT GENLDR 

To place the CPMLDR on the system track you must use SID or 
DDT to bring in the CPMLDR.COM with a bias of 880h then bring in 
the 3BOOT.HEX with a bias of 900h. Exit from the debugger and use 
512SGEN, WRTSYS or SYSGEN to write the CPMLDR onto the system 
tracks. 512SGEN, WRTSYS or SYSGEN must be run under CP/M 2. Once 
you have the loader on the system tracks it is not necessary to 
change it unless you change your cpu or disk controller. CPMLDR 
will load any configuration of CP/M plus. 

Use the following SID procedure under CP/M 2: 


A>SID 

You 

type 

CP/M 3 SID - Version 3.0 

#RCPMLDR.COM,880 

NEXT MSZE PC END 

1E00 1E00 0100 DOFF 

You 

type 

#R3B00T.HEX,900 

NEXT MSZE PC END 

0980 1E00 0100 DOFF 

You 

type 

#G0 

You 

type 


A> 


Then use 512SGEN to place the CPMLDR image on the system 
tracks of your work disk. 

*** IN CONCLUSION *** 

If you did everything correctly you should have a bootable 
CP/M plus disk. If you wish to make copies of this disk you must 
use 512COPY or 512SGEN & PIP running under CP/M 2. 


Disclaimer: 

Tarbell Electronics makes no representations or warranties 
with respect to the contents hereof or to the product herein 
described, and specifically disclaims any implied warranties or 
merchantability or fitness for any particular purpose. Further, 
Tarbell Electronics reserves the right to revise this 
publication, or any other product of Tarbell without obligation 
of Tarbell Electronics to notify any person of such revisions or 
changes. Tarbell Electronics assumes no responsibility for 
consequential damages to any other equipment, or for time lost, 
or for software or data lost, which may arise from the use of its 
products or software, even if Tarbell Electronics has been 
informed of the possibility of such damage or loss. 
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B>TYPE DB00T24.PRN 


1/ £/W f v—o Ifc t”' 


3 TARBELL ELECTRONICS CP/M COLDSTART LOADER ' 

5 VERSION OF 7-3-80. 

5 Modified for DMA Control - 1-5-80. ^ 

5 Modified for reading larger bios from TRK 1 - 6-51-80. 

5 Modified for Tarbe 11 CPU Card - 7-3-80. g 

5 G.W.Mulchin 
5 Tarbe 11 Electronics 

; Copyright (c) 1980 Tarbe 11 Electronics ^ 

* 

** NOTE ** m 

? The equate for Double Density (DOUBDEIM) must only be 

; set true for a disk which is formatted in double density only 

; and one which you wish to put an operating system on to. g* 

; Otherwise? leave it false if you are building an operating 
; system on to a single density formatted disk. 

5 A 

5 THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROG 
; AND EXECUTED. ITS PURPOSE IS TO LOAD AND EXECUTE THE CP/M DIS 
5 OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. m 


0000 

FFFF 


FALSE EQU 0 5 DEFINE VALUE OF FALSE. 

TRUE EQU NOT FALSE 5 DEFINE VALUE OF TRUE. 


5********* THIS IS THE AREA TO MAKE CHANGES IN **************** 
;********* FOR DIFFERENT SYSTEM CONFIGURATIONS **************-g| 


0018 

ss 

MSI ZE 

EQU 

24 

5 MEMORY SIZE IN DECIMAL KB. 

0000 

SS 

TARBELL 

EQU 

FALSE 

5 TRUE IF USING TARBELL CPU. 

0000 


DUBSID 

EQU 

FALSE 

;TRUE FOR DOUBLE SIDED SYSTEMS. 

0000 

ss 

DELTA 

EQU 

FALSE 

?TRUE IF USING DELTA CPU CARD 

0000 

=r 

DOUBDEN: 

EQU 

FALSE 

? TRUE IF DOUB. DEN DISK. 

0000 

= 

DMACNTL 

EQU 

FALSE 

?TRUE IF USING DMA CONTROL 

0000 

ss 

BASE 

EQU 

0 

5TARBELL I/O PORTS (00 or 10 HEX) 

001A 

ss 

SPT 

EQU 

4^.0 

5 NUMBER OF SECTORS PER TRACK. 

001A 

= 

DDS 

EQU 

26 

? sectors in trk 1 ? (Range = 26 to 

OOFS 

ss 

DISK 

w 

EQU 

0F8H 

5 DISK PORT BASE ADDRESS. 
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5 ft##########################*###########################'## 




IF 

TARBELL 




10 

EQU 

BASE 

Si/o ports on tar-bell cpu. 



MMENB 

EQU 

10+10 

; memory management enable port. 



MEMMAG 

EQU 

BASE+32 

? memory management port. 




END IF 


OOEO 

ss 

ADRO 

EQU 

OEOH 

? DMA ADDRESS PORT. 

00E1 

ss 

WCTO 

EQU 

0E1H 

5 DMA WORD COUNT PORT. 

00E8 

ss 

CMND 

EQU 

0E8H 

3 DMA COMMAND PORT. 

OOFS 

ss 

DCOM 

EQU 

DISK 

5 COMMAND PORT. 

OOFS 

ss 

DSTAT 

EQU 

DISK 

3 STATUS PORT. 

00F9 

=s 

TRACK 

EQU 

DISK+1 

5 TRACK PORT. 

OOFA 

ss 

SECT 

EQU 

DISK+2 

3 SECTOR PORT. 

OOFB 

ss 

DATA 

EQU 

DISK+3 

5 DATA PORT. 

OOFC 

ss 

WAIT 

EQU 

DISK+4 

3 WAIT PORT. 

OOFC 

ss 

DCONT 

EQU 

DISK+4 

5CONTROL PORT. 

OOFD 

ss 

DMACHK 

EQU 

DISK+5 

3 DMA CHECK PORT. 


&&&Mi 



i 

« 

€ 

€ 

t 

€ 


I 

€ 

l 

i 

c 

* 

i 

c 

< 

€ 


UUI" 1- = 


twu 

Uh h H 

; t-ront panel macn i nes. 

0019 = 

SDS 

EQU 

•~icr 

;aliuavs 25 sectors to read 

1C00 = 

CBASE 

EQU 

(MSIZE—17)#1024 

4500 = 

CP MB 

EQU 

CBASE+2900H 

I? START OF CP/M. 

5AOO = 

BOOTE 

EQU 

CBASE+3E00H 

5 COLD BOOT ENTRY POINT. 

0033 = 

NSECTS 

EQU 

SDS + DDS 

;SECTORS OF CP/M. 

OOOA = 

RTCNT 

II 

EQU 

10 

;NUMBER OF RETRYS. 

0000 

7 

« 

ORG 

0 

?START OF LOADER. 
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BOOT: 






IF 

TARBELL 

5 IF USING TARBELL CPU 



OUT 

MMENB 

?ENABLE MEMORY MANAGEMENT. 



LX I 

D,1000H 

5CQUNT=16, DATA BYTE = 0 



MVI 

C,MEMMAG AND OFFH 


MLOOP: 

MOV 

A, E 

5 GET ADDRESS VALUE 



ORA 

C 

5 MAKE I/O PORT VALUE 


in trk 1 


0000 
0002 
0005 
0008 
000A 
OOOC 
OOOE 
0011 
0012 
0015 
0017 
0018 
0019 
00 IB 



MOUTs 


ST A 
MOV 
CM A 
OUT 
I NR 
OCR 
JNZ 
END IF 


MOUT+1 

A,E 

BASE 

E 

D 

MLOOP 


IF DELTA 
MVI A,1 
OUT 9 
END IF 


5 MODIFY PORT ON THE FLY 
5 GET INIT VALUE. 

SFLIP IT FOR RAM ON CPU 
5 PUT IT TO RAM ON CPU 
5 BUMP DATA VALUE 
?DECREASE COUNT 
5 LOOP 16 TIMES. 


5 IF USING DELTA CPU. 

»GET A 1 IN REG A. 

; AND DISABLE CPU ROM SLOT. 


BLOOP: 


RNTRK: 

RNSEC: 


SECCMPi 


MVI 

LX I 

LX I 

MVI 

MVI 

MVI 

CALL 

DCR 

JZ 

MVI 

I NR 

MOV 

CPI 

JC 

IF 

MVI 

STA 

MVI 

OUT 

END IF 


E, RTCNT 
SP,100H 
H.CPMB 
D» NSECTS 

C -~. 

7 uL 

B,4 

READ 

D 

BOOTE 
B, 0 
C 

A, C 

SPT+1 

RNSEC 


GET RETRY COUNT. 

SET STACK POINTER. 

CP/M STARTS HERE. 

NUMBER OF SECTORS TO READ. 
SECTOR NUMBER. 

FOR HEAD LOAD. 

READ FIRST SECTOR. 

IF DONE, 

GO TO CP/M. 

FOR NO HEAD LOAD. 

INCREMENT SECTOR COUNT. 
DONE WITH 
THIS TRACK? 

IF NOT, READ NEXT SECTOR. 


DOUBDEN AND NOT DUBSID 


A.DOS + 1 
SEC CMP +- ) 
A, 8 
WAIT 


;number of sectors to read on trk 
5rnodifv sector compare value. 

;GET SET DOUBLE DENSITY CODE 
5 SET LATCH FOR D.DENSITY 


IF 


NOT DUBSID 



00 IE 

3E5B 


MVI A,5BH 

? STEP COMMAND. 

€ 

0020 

D3F8 


OUT DCOM 

?ISSUE IT. 

m-- 

0022 

DBFC 


IN WAIT 

5 WAIT UNTIL DONE. 




m 

END IF 


c 
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IF DUBSID 

?IF DOUBLE SIDED SYS 





MVI A,40H 

5SIDE SELECT COMMAND 

g 




OUT DCONT 

5 ISSUE IT. 





END IF 



0024 

0E01 

? 

MVI C,1 

5 SECTOR NUMBER. 

w 

0026 

C30C00 


JMP RNTRK 

;READ NEXT TRACK. 


f 

i 

€ 

€ 

€ 

f 

€ 

€ 

t 

€ 

€ 

t 

< 

€ 

t 

t 

€ 

€ 

€ 

< 

€ 



READ 





IF 

DMACNTL 

?IF USING DMA CONTROL. 




MV I 

A,41H 

5SET UP FOR CHAN 0 REQ. 




OUT 

CMND 





MV I 

A» 7FH 

5 COUNT FOR 128 BYTES 




OUT 

WCTO 





MV I 

A j 40H 

5 READ COMMAND 




OUT 

WCTO 





MOV 

Ai L 

S GET LOW ADDRESS BYTE 




OUT 

ADRO 





MOV 

A,H 

? HIGH ADDRESS BYTE 




OUT 

ADRO 




« 

END IF 


0029 

79 

7 

MOV 

A, C 

SSECTOR IN A. 

002A 

D3FA 


OUT 

SECT 

5 SET SECTOR REGISTER. 

002C 

ocoo 

v'CU'J 


MV I 

A» 88H 

?COMMAND FOR READ. 

002E 

BO 


ORA 

B 

? GET HEAD LOAD BIT. 

002F 

D3F8 

M 

OUT 

DCOM 

5ISSUE COMMAND. 



7 

IF 

NOT DMACNTL 

IF NOT USING DMA CONTROL. 

0031 

DBFC 

RLOOPs 

IN 

WAIT 

5 WAIT FOR DRQ. 

0033 

B7 


ORA 

A 

?SET FLAGS. 

0034 

F23E00 


JP 

CHECK 

; .JUMP IF DONE. 

0037 

DBFB 


IN 

DATA 

5READ DATA. 

0039 

77 


MOV 

M, A 

5PUT IN MEMORY. 

003A 

23 


INX 

H 

SINCREMENT POINTER. 

003B 

C33100 


JMF' 

RLOOP 

SLOOP UNTIL DONE. 



It 

END IF 




7 

IF 

DMACNTL 




SLOPE: 

IN 

DMACHK 

5 CHECK DMA STATUS 




RLC 


S BIT 7 




JC 

SLOPP 

SLOOP IF CARRY 




PUSH 

B 

5 SAVE B,C PAIR 




LX I 

B, 128 

5 COUNT SET FOR 128 BYTES 




DAD 

B 

SADJUST H,L BY 128 BYTES 




POP 

B 

5 RESTORE BC 



* 

END IF 


003E 

DBFS 

7 

CHECK: 

IN 

DSTAT 

5 READ STATUS. 

0040 

E69D 


AN I 

9DH 

5 LOOK AT ERROR BITS. 

0042 

L-8 


RZ 


5 OK IF ZERO. 

0043 

ID 


DCR 

E 

5 DECREMENT RETRY COUNT. 

0044 

C20200 


•JNZ 

BLOOP 

5 TRY AGAIN IF NOT ZERO. 

0047 

2F 


CMA 


Sflip for front panel 

0048 

D3FF 


OUT 

PANEL 

5 show error code from floppy. 

004A 

C34A00 

HERE: 

H 

..IMP 

HERE 

S LOOP. 

007D 


7 

ORG 

7DH 

SPLIT .JUMP HERE. 

007D 

C7 

N 

RST 

0 

5 USE RESTART 



7 

IF 

DOUBDEN 





DB 

ODDH 

5 THIS BYTE MUST BE HERE IF DOUB 




DB 

0 

5 THIS BYTE UNUSED 




END IF 




7 

IF 

NOT DOUBDEN 

007E 

E5 


DB 

0E5H 


007F 

00 


DB 

0 




M 

END IF 


0080 


7 

END 

BOOT 

SEND OF BOOT. 



fj iaas CoV\/r* 




EO TYPE AB10S24. PRN 


CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 
TARBELL ELECTRONICS CPM 1.4 VERSION OF ,7-14-80. 
Copyright <c) 1980 Tarbe 11 Electronics. 


THIS MODULE CONTAINS ALL THE INPUT/OUTPUT ROUTINES FOR 
THE CP/M SYSTEM, INCLUDING THE DISK ROUTINES FOR AUTOMATIC m 
SELECTION OF THE DISK DENSITY AND THE NECESSARY DMA ROUTINE:!* 
THIS SECTION ALSO DEFINES THE I/O PORTS AND STATUS BITS. BY 
SETTING THE PROPER VALUES FOR THE EQU STATEMENTS, THE I/O M^' 
AUTOMATICALLY RECONFIGURED TO FIT MOST SITUATIONS. THE TRUE * 
FALSE ONES CONTROL CONDITIONAL ASSEMBLIES OF DIFFERENT SECT10 
OF I/O ROUTINES TO FIT DIFFERENT INTERFACE REQUIREMENTS. ^ 


FFFF 

0000 


TRUE 

FALSE 


OFFFFH 5 DEFINE VALUE OF TRUE. 

NOT TRUE ,* DEFINE VALUE OF FALSE. 


a-aaaaaaaaaaaa-aaa-aa-aaa aaaaaaaaaaaaaa-aaa aaaaa-aaaa-aaaa 
*** THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 
*** FOR DIFFERENT CONSOLE I/O SYSTEMS *** 
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-a 


0018 

nr 

MSI ZE 

EQU 

24 

0000 

r= 

INTRP 

EQU 

FALSE 

0000 

m 

TESTING 

EQU 

FALSE 

0000 

m 

TARBELL 

EQU 

FALSE 

0000 

nr 

IDBASE 

EQU 

0 

0000 

== 

TIMER 

EQU 

FALSE 

0000 

— 

STD 

EQU 

FALSE 

0000 


VDB8U24 

EQU 

FALSE 

0000 


DELTA 

EQU 

FALSE 

FFFF 


MS 102 

EQU 

TRUE 

0000 


IS102 

EQU 

FALSE 

0000 

- 

TUART 

EQU 

FALSE 

0000 


VDM 

EQU 

FALSE 

0000 

=r 

FLASH 

EQU 

FALSE 

0000 

nr 

VB1 

EQU 

FALSE 

0000 

= 

OTHER 

EQU 

FALSE 

0000 


SOLOS 

EQU 

FALSE 

FFFF 


BACKSP 

EQU 

TRUE 

0000 

- 

DUBSID 

EQU 

FALSE 

0000 


DMACNTL 

EQU 

FALSE 

0000 


SPOOL 

m 

EQU 

FALSE 



? 

IF NOT SOLO: 

0000 

= 

CSTAT 

EQU 

0 

0000 


CCOM 

EQU 

0 

0001 

nr 

CD AT A 

EQU 

i 

0002 

m 

LSTAT 

EQU 

2 

0002 

= 

LCOM 

EQU 

2 

0003 


LDATA 

EQU 

3 



II 

END IF 

0000 

nr 

7 

CONUL 

EQU 

FALSE 

0010 

ss: 

CNULL 

EQU 

16 

0000 


LSTNUL 

EQU 

FALSE 

0000 

= 

LNULL 

EQU 

0 

0000 


LSTPAG 

EQU 

FALSE 


MEMORY SIZE IN KBYTES. 

TRUE IF INTERRUPTS ALLOWED. 

TRUE FOR TESTING ERRORS 
TRUE IF USING THE TARBELL Z-80 CPU. 
BASE 10 ADDR FOR TARBELL CPU (0 or 
TRUE IF USING CPU TIMER (Tarbe 11 CP 

TRUE IF STANDARD I/O. 

TRUE IF USING SD SALES VDB-8024. 

TRUE IF USING DELTA CPU CARD. 

TRUE IF MITS 2SI0. 

TRUE IF IMSAI SI0-2. 

TRUE IF CROMEMCO TUART. 

TRUE IF PROC TECH VDM. 

TRUE IF VG FLASHWRITER. 

TRUE IF SSM VB1-B. 

TRUE IF SOMETHING ELSE. 

TRUE IF PROC TECH SOLOS. 

AUTO-BACKSPACE FOR CRT'S. 

TRUE FOR DOUBLE SIDED DRIVES.(1 LOG 
TRUE IF DMA CONTROLLER 
TRUE IF USING KLH SPOOLER 

NOT TARDEL 5 IF NOT PROC TECH SC 

CONSOLE STATUS PORT. 

CONSOLE COMMAND PORT. 

CONSOLE DATA PORT. 

LIST STATUS PORT. 

LIST COMMAND PORT. 

LIST DATA PORT. 


!CONSOLE NULLS? 

;CONSOLE NULL COUNT. 
5 LIST DEVICE NULLS? 

5 LIST NULL COUNT. 

5 LIST DEVICE PAGING? 


i TK»r~t~* r*«r~r*i r*» r~ 


0008 

0001 

0000 


HLAB EQU 8 
8TPRAT EQU 1 
DUAL EQU FALSE 


58 FOR HD LD AT BEG OF SEEK. 

5 RATE 0=3ms,1=6MS, 2=1OMS, 3=20MS. 


5TRUE IF DUAL DRIVE.(2 HEADS MOVE TOG 


»** THIS IS THE END OF THE AREA WHICH NORMALLY NEED *** 




oooo = 

VIDEO 

EQU 

0000 = 

RDYLO 

EQU 

FFFF = 

RDYHI 

EQU 

0000 = 

TARDEL 

M 

EQU 


7 

IF 


CCOM 

EQU 


CSTAT 

EQU 


CD AT A 

EQU 


LCOM 

EQU 


LSTAT 

EQU 


LDATA 

EQU 


m 

END IF 


7 

IF 


BE CHANGED FOR MOST CONSOLE I/O SYSTEMS *** 

tt*###**#***##-*#####**#####*####***##*#***#-****-**-*#**#-*# 

VDM OR FLASH OR VB1 ?TRUE FOR ANY VIDEO. 

STD OR SOLOS OR OTHER 5 STATUS READY WHEN LOW. 
NOT RDYLO 

TARBELL OR DELTA 5 IF USING TARBELL OR DELTA CPI 


TARDEL 

IOBASE+1 

IOBASE+1 

IOBASE+O 

IGBASE+3 

IOBASE+3 

IOBASE+2 


5 IF USING TARBELL OR DELTA CPU 
5 CONSOLE COMMAND PORT 
5 CONSOLE STATUS PORT ( CHAN A.) 
5 CONSOLE DATA PORT 
5 LIST COMMAND PORT 
‘LIST STATUS PORT (CHAN B.) 

5LIST data port 


TIMER AND TARBELL 


MUST BE USING TARBEL 


TIMER EQUATES 


TCHO 

EQU 

IOBASE+4 

TCH1 

EQU 

IOBASE+5 

TCH2 

EQU 

IOBASE+6 

TCMND 

EQU 

IOBASE+7 

IMASK 

EQU 

IOBASE+8 

CNTRO 

EQU 

OOOOOOOOB 

CNTR1 

EQU 

01OOOOOOB 

CNTR2 

EQU 

1OOOOOOOB 

RLWORD 

EQU 

0011OOOOB 

RLHBYTE 

EQU 

001OOOOOB 

RLLBYTE 

EQU 

0001OOOOB 

CNTRLT 

EQU 

OOOOOOOOB 

BINARY 

EQU 

OOOOOOOOB 

BCD 

EQU 

00000001B 

MODEO 

EQU 

OOOOOOOOB 

MODE 1 

EQU 

0000001OB 

M0DE2 

EQU 

00000100B 

MODES 

EQU 

00000110B 

M0DE4 

EQU 

00001000B 

MODES 

EQU 

0000101OB 


END IF 


IF 

VDM 

SCREEN 

EQU 

OCCOOH 


END IF 


IF 

FLASH OR VB1 

SCREEN 

EQU 

0F800H 


END IF 


IF 

FLASH 

ENDSCR 

EQU 

(SCREEN+2048> 


END IF 


IF 

VB1 OR VDM 

ENDSCR 

EQU 

(SCREEN+1024 > 

n 

END IF 

7 

IF 

VIDEO 


TIMER CHAN 0 ADDRESS 
TIMER CHAN 1 ADDRESS 
TIMER CHAN 2 ADDRESS 
TIMER COMMAND PORT 
INTERRUPT MASKING PORT 


counter 0 
counter 1 
counter 2 
read/1oad 
read/1oad 
read/1oad 


2nd. 


1 sb lstj msb 
msb only. 

Isb only, 
counter latching operation, 
select binary operation, 
select BCD operation, 
interrupt on terminal count, 
prosrammab1e One-shot. 
rate generator, 
square wave rate generator, 
software triggered strobe, 
hardware triggered strobe. 


5 IF PROC TECH VDM1, 

;SCREEN PLACE IN MEMORY. 


5 SCREEN PLACE IS DIFFERENT. 


IF VG FLASHWRITTER 


5 IF SSM VB1-B BOARD 


I TMPC:IS mil CfRFFW 4- A4 


; uTrim i tmpc: 






SCRLCNT 

EQU 

980 

5 LINES TO SCROLL 



SCRNTOP 

EQU 

SCREEN + SCRLCNT 

STOP OF SCREEN 



a 

END IF 


0008 

ss 

7 

BKSP 

ECU 

OSH 

?BACKSPACE EQUATE 

000A 

ss: 

LF 

EQU 

OAH 

5 LINEFEED EQUATE 

OOOD 

ss: 

CR 

EQU 

ODH 

?CARRIAGE RET EQUATE 

OOOC 

ss: 

FF 

a 

EQU 

OCH 

;FORM-FEED EQUATE. 

0008 

ss: 

7 

DDEN 

EQU 

OSH ;DOUBLE 

DENSITY ENABLE CODE 

00F7 

sr 

DDDSB 

a 

EQU 

0F7H 5 DOUBL. 

DENSITY DISABLE CODE 



7 

IF 

SOLOS 

5 IF PRGC TECH SOLOS, 



CSTAT 

EQU 

OF AH 

;CONSOLE STATUS PORT. 



KBD 

EQU 

0C02EH 

5 SOLOS KEYBOARD. 



CLRSCR 

EQU 

0C0D5H 

5 CLEAR SCREEN. 



SCRN 

EQU 

OC054H 

;SOLOS OUTPUT. 




END IF 





IF NOT SOLOS 

5 IF NOT PROC TECH SOLOS, 

OOEO 

ss 

DMAP 

EQU 

OEOH 

5 DMA BASE ADDRESS. 

OOFS 


DISK 

EQU 

0F8H 

5 DISK BASE ADDRESS. 



a 

END IF 




7 

IF SOLOS 

?IF PROC TECH SOLOS, 



DMAP 

EQU 

060H 

;DMA BASE ADDRESS. 



DISK 

EQU 

078H 

5 DIFFERENT DISK PORTS. 



a 

END IF 


OOEO 

ss 

ADRO 

EQU 

DMAP+O 

5 DMA ADDRESS REG PORT. 

OOE1 

= 

WCTO 

EQU 

DMAP+1 

? DMA WORD COUNT REG PORT 

00E8 

— 

CMND 

EQU 

DMAP+8 

5 DMA COMMAND PORT. 

OOFS 

ss 

DCOM 

EQU 

DISK 

;DISK COMMAND PORT. 

OOFS 

ss 

DSTAT 

EQU 

DISK 

» DISK STATUS PORT. 

00F9 

= 

TRACK 

EQU 

DISK+1 

5 DISK TRACK PORT. 

OOFA 

— 

SECTP 

EQU 

DISK+2 

5DISK SECTOR PORT. 

OOFB 

= 

DDATA 

EQU 

DISK+3 

5 DISK DATA PORT. 

OOFC 

ss 

WAIT 

EQU 

DISK+4 

5DISK WAIT PORT. 

OOFC 

= 

DCONT 

EQU 

DISK+4 

5 DISK CONTROL PORT. 

OOFCi 

= 

DMACHK 

EQU 

DISK+5 

;dma CHECK PORT. 

OOOA 

ins 

RTCNT 

EQU 

10 

5 RETRY COUNT. 




IF 

STD 

;IF STANDARD I/O, 



CKBR 

EQU 

00000001B 

? KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

5 CONS OUTPUT RDY BIT. 




END IF 





IF 

VDB8024 




CKBR 

EQU 

0000001OB 

! KEYBOARD RDY BIT. 



CPTR 

EQU 

000001OOB 

5 CON RDY BIT. 




END IF 





IF 

MS: 102 

? IF MITS 2SI0, 

0001 

ss 

CKBR 

EQU 

0000000IB 

!KEYBOARD READY BIT. 

0002 

ss 

CPTR 

EQU 

0000001OB 

» PRINT READY BIT. 




END IF 





IF 

TARDEL OR ISI02 

?IF IMSAI SI0-2, 



CKBR 

EQU 

0000001OB 

; KEYBOARD READY BIT. 



CPTR 

EQU 

0000000IB 

5 PRINT READY BIT. 




END IF 





IF 

TLIART 

5 IF CROMEMCO TUART, 



CKBR 

EQU 

01000000B 

?KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

? PRINT READY BIT. 


r*Kiir» t r 






IF 

SOLOS 

5IF PROC TECH SOLOS, 



CKBR 

EQU 

0000000IB 

5KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

?DUMMY EQU. 




END IF 





IF OTHER 

?IF SOMETHING ELSE, 



CKBR 

EQU 

0000001OB 

5 KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

;PRINTER READY BIT. 




END IF 


0002 

SS 

LRBIT 

EQU 

CPTR 

5 LISTER READY BIT. 

0003 


IOBYTE 

EQU 

3 

;ADDRESS OF I/O BYTE. 

1C00 

=r 

CBASE 

EQU 

(MSIZE-17)#1024 

5BIAS FOR LARGER THAN 17K. 

4500 


CPMB 

EQU 

CBASE+2900H 

;START OF CPM. 

4D06 

= 

BDOS 

EQU 

CBASE+3106H 

*, START OF BDOS 1.4. 

1500 


CPML 

EQU 

1500H 

5 LENGTH OF CPM SYSTEM-BIOS 

0019 

= 

NSECTS 

« 

EQU 

•“jcr 

?NUMBER OF SECTORS TO READ 

5572 


7 

ORG 

CPMB+1072H 

5CP/M PATCH. 

5572 

CDF44F 


CALL 

CPMB+0AF4H 


5575 

000000 


NOP! 

NOP!NOP 


5578 

79 


MOV 

A , <_• 


5579 

21F859 

m 

LX I 

H,CPMB+14F8H 


5A00 


7 

m 

7 

ORG 

CPMB+1500H 

5START OF BIOS. 


5 I/O JUMP VECTOR 

5 THIS IS WHERE CPM CALLS WHENEVER IT NEEDS 
; TO DO ANY INPUT/OUTPUT OPERATION. 

5 USER PROGRAMS MAY USE THESE ENTRY POINTS 
5 ALSO, BUT NOTE THAT THE LOCATION OF THIS 
5 VECTOR CHANGES WITH THE MEMORY SIZE. 


5A00 

C33B5A 

JMP 

BOOT 

5 FROM COLD START LOADER. 

5A03 

C3975A 

WBOOTE: JMP 

WBOOT 

5FROM WARM BOOT. 

5A06 

C3DC5A 

JMP 

CONST 

5 CHECK CONSOLE KB STATUS 

5A09 

C3E55A 

JMP 

CON IN 

;READ CONSOLE CHARACTER. 

5A0C 

C3FB5A 

JMP 

CONOT 

5WRITE CONSOLE CHARACTER 

5A0F 

C3A45D 

JMP 

LIST 

5 WRITE LISTING CHAR. 

5A12 

C3AF5D 

JMP 

PUNCH 

!WRITE PUNCH CHAR. 

5A15 

C3B05D 

JMP 

READER 

? READ READER CHAR. 

5A18 

C3BF5B 

JMP 

HOME 

» MOVE DISK TO TRACK ZERO 

5A1B 

C3215B 

JMP 

SELDSK 

!SELECT DISK DRIVE. 

5A1E 

C3C55B 

JMP 

SETTRK 

5SEEK TO TRACK IN REG A. 

5A21 

C3415C 

JMP 

SETSEC 

;SET SECTOR NUMBER. 

5A24 

C3465C 

JMP 

SETDMA 

5SET DISK STARTING ADR. 

5A27 

C37F5C 

JMP 

READ 

5READ SELECTED SECTOR. 

5A2A 

C3F45C 

JMP 

II 

WRITE 

5 WRITE SELECTED SECTOR. 



7 

IF 

SPOOL 

5 IF USING KLH SPOOLER 



DB 

OFFH 

;FLAG FOR SPOOLER. 



DW 

LTBSY 

?LISTER STATUS LOCATION 



DW 

LTBSY 

;FOR SPOOLER - 



DW 

LTBSY 

51 DON'T KNOW WHY IT'S 



DW 

LTBSY 

5 HERE 4 TIMES EITHER. 



END IF 



» 

!THE FOLLOWING TABLE DEFINES CP/M AS EITHER SINGLE OR 
5 DOUBLE DENSITY AND IS CHANGED ON THE FLY WHEN A DISK 

5IS SELECTED. THE ORDER OF THIS TABLE MUST BE AS SHOWN. 

« 

5A2D 004E1A3F03SDTAB! DB OOH,4EH,26,63,3,7,242 5 SINGLE DENSITY TABLE 

IF DUBSID 

no rtou. Acu.^i.. jt.'s. a. . oTKifti cr oetm nni ID c t n 


END IF 


5A34 010C335F04 


DB 01H, OCH,51, 95, 4»15,237 


5SINGLE SIDED, DOUB DE 


IF DUBSID 

DB OSH,OCH,51,95,5,31,237 
END IF 


' DOUB SIDED, DOUB DEN." 


? BOOT 

? THIS SECTION IS EXECUTED WHENEVER RESET AND RUN 
5 IS PUSHED, AFTER THE COLDSTART LOADER READS IN 
? THE CPM SYSTEM. 


5A3E 3E03 
5A40 D300 
5A42 D302 
5A44 3E11 
5A46 D300 
5A48 D302 


INITIO! 


ITl: 


LX I 

SP,80H 

?SET STACK POINTER. 

IF 

INTRP 

5 IF INTERRUPTS ALLOWED, 

El 


?ENABLE THEM HERE. 

END IF 


IF 

TIMER AND 

TARBELL ?IF USING TARBELL CPU 

MVI 

A,CNTR0+RLW0RD+M0DE2+BINARY 5INIT 82 

OUT 

TCMND 

j SEND IT TO COMMAND PORT 

LX I 

B,33333 

? TIME CONSTANT FOR 60 HZ 

MOV 

A, C 


OUT 

TCHO 

?LS BYTE OF COUNT 

MOV 

A, B 


OUT 

TCHO 

5MS BYTE OF COUNT 

END IF 


IF 

STD 

5 IF STANDARD I/O, 

NOP! 

NOP!NOP!NOP 

;LEAVE SPACE FOR INIT. 

NOP! 

NOP!NOP!NOP 


NOP! 

NOP!NOP!NOP 


NOP! 

NOP!NOP!NOP 


END IF 


IF 

MS 102 

?IF MITS 2SI0, 

MVI 

A, 3 

jINITIALIZE 2SI0. 

OUT 

CCOM 


OUT 

LCOM 


MVI 

A, 11H 


OUT 

CCOM 


OUT 

LCOM 


END IF 


IF 

TARDEL OR 

ISI02 

LX I 

H,IOINIT 

5 point to 8251 init. bvt 

MVI 

B, 4 

?there are 4 of them 

MOV 

A, M 

;=>et a bvte 

OUT 

CCOM 

;out to command port of 

OUT 

LCOM 

;out to command port of 

INX 

H 

5 bump pointer 

DCR 

B 

;decrease count 

JNZ 

INITIO 

;1oop till done. 

END IF 


IF 

TUART 

?IF CROMEMCO TUART, 

MVI 

A, 1 

!SET A * 1. 

OUT 

54H 

5 SELECT DEVICE A. 

OUT 

52H 

5 RESET DEVICE B. 

LX I 

H,BAUDRS 

5GET ADR OF BAUD RATE TABLE. 

MVI 

A, 11H 

?OCTUPLE THE CLOCK. 

OUT 

02H 

5 8< RESET CURRENT DEV. 

MOV 

A, M 

?GET BAUD RATE FROM TABLE. 

INX 

H 

?INCREMENT POINTER. 


o nsoU 
i ste * 


ITl TV 


rayv-rrr 





CALL 

CON IN 

5 READ KEYBOARD. 




CALL 

CON IN 

5READ KEYBOARD AGAIN. 




CP I 

ODH 

?IF NOT CARRIAGE-RETURN, 




MVI 

A, 1 

? SLOW THE CLOCK. 




JNZ 

IT1 

;UNTIL A CARRIAGE-RETURN. 




END IF 





IF 

SOLOS 

?IF PROC TECH SOLOS, 




CALL 

CLRSCR 

;CLEAR SCREEN. 




END IF 


5A4A 

AF 


XRA 

A 

5CLEAR SCRATCH AREA. 




IF 

VDM 

?IF PROC TECH VDM, 




OUT 

0C8H 

;CLEAR SCROLL PORT 




END IF 


5A4B 

32C45D 


STA 

LATCH 

5 LATCH = 0 

5A4E 

320300 


STA 

IOBYTE 

;CLEAR I/O BYTE. 

5A51 

OEOC 


MVI 

CiENDZ-S 

TARTZ ?GET LENGTH OF ZERO 

5A53 

21B55D 


LXI 

H, startz 

? GET SCRATCH ADDRESS. 

5A56 

77 

BOOTL* 

MOV 

M, A 

?PUT ZERO IN MEMORY. 

5A57 

■"i o 


INX 

H 

!INCREMENT POINTER. 

5A58 

OD 


DCR 

C 

5 DECREMENT COUNTER. 

5A59 

C2565A 


JNZ 

BOOTL 

?LOOP TILL DONE. 




IF 

VIDEO 

5 IF ANY VIDEO BOARD, 




UALL 

CLEAR 

?CLEAR SCREEN. 




END IF 


5A5C 

DBO1 


IN 

CDATA 

5 CLEAR CONSOLE STATUS. 

5A5E 

21655D 


LXI 

H * SMSG 

SPRINT OPENING MESSAGE. 

5A61 

CD235D 


CALL 

PMSG 


5A64 

CDE55A 


CALL 

CON IN 

5 READ # OF DISKS. 

5A67 

4F 


MOV 

C* A 

5 ECHO THE CHAR. 

5A68 

CDFB5A 


CALL 

CONOT 


5A6B 

E607 


ANI 

7 

5 LOOK AT 3 LSB' S. 

5A6D 

32C15D 


STA 

NODSKS 

S SAVE IT. 

5 A 70 

OEOO 


MVI 

C» 0 

SSELECT DRIVE 0 

5A72 

CD7C5A 

GOCPMs 

CALL 

SETUP 

5 SET UP JUMPS. 

5A75 

3AB55D 


LDA 

DISKNO 

S GET DISK NUMBER TO 

5A78 

4F 


MOV 

C i A 

5 PASS TO CCP IN C. 

5A79 

C30045 


JMP 

CPMB 

5 JUMP TO CCP. 


IF TARDEL OR ISIQ2 

IOINIT! DB OAAH, 040H, QCEH, 037H 

END IF 


BAUDRSs 


IF TUART ?IF CRQMEMCO TUART» 

DB 94H,OCEH,0A2H, 92H,88H,84H,82H,1 

END IF 


5DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 
5 READ AND WRITE ROUTINES FOR DMA OPERATION. 


m 

IF DMACNTL 

7 

DMARWs 

STA 

ERCNT 

RWDMA: 

LDA 

SECT 


OUT 

SECTP 


LHLD 

DMAADD 

DMARWE: 

XRA 

A 


OUT 

CMND 


MOV 

A, C 


OUT 

DCOM 


MOV 

A, E 


DCR 

A 


«~*ii rr 

i.ir-TA 


5 IF USING DMA CONTROL 

5 SAVE ERROR COUNT. 

» GET SECTOR TO READ/WRITE 
;AND SEND IT FLOPPY CHIP. 

5 GET CPM DMA ADDRESS. 

;CLEAR ACCUM. 

?RESET DMA CHIP. 

?FORCE INTERRUPT COMMAND BYTE 
5 SEND IT TO CONTROLLER. 

? BYTE COUNT TO TRANSFER 
5 COUNT = COUNT - 1. 

. c-CKiri tt m riMA r ur d 




MOV 

A, D 


5 GET READ/WRITE CODE. 



OUT 

WCT 0 


? AND TELL DMA CHIP WHAT TO DO 



MOV 

A, L 


;GET LOW ADDRESS BYTE 



OUT 

ADRO 


?AND SEND IT TO DMA CHIP. 



MOV 

A, H 


5 GET HIGH ADDRESS BYTE 



OUT 

ADRO 


5 AND SEND IT TO DMA CHIP. 



MVI 

A, 41H 


5 SET UP FOR REQUEST CH. 0 



OUT 

CMND 


» SEND IT TO CONTROLLER. 



CALL 

HOLD 


?CHECK HEAD LOAD BIT. 



ORA 

B 


?-OR- IN THE READ/WRITE BITS. 


u 

OUT 

DCOM 


5 TELL FLOPPY CHIP WHAT TO DO. 


;ADJUST 

* 

H, L 1 

FOR 128 

BYTE INCREASE. 


9 

PUSH 

D 


5 SAVE D,E 



MOV 

A, D 


? GET DMA COMMAND BYTE 



AN I 

3FH 


;STRIP OFF COMMAND BITS 7 6 



MOV 

D, A 


;NOW SET FOR H,L ADJUST. 



DAD 

D 


5ADD IT TO H,L. 


a 

POP 

D 


5 RESTORE D, E 


9 

?GENERAL PURPOSE WAIT 

at 

ROUTINE. 


9 

MVI 

A, 60H 


;COUNT VALUE. 


CNTLOOP 

: DCR 

A 





JNZ 

CNTLOOP 

?LOOP TILL = ZERO. 


SLOOP: 

IN 

DMACHK 


;CHECK FOR OPERATION DONE. 



RLC 



5 BY LOOKING AT BIT 7. 



JC 

SLOOP 


5 LOOP TILL BIT 7 = 0. 



IN 

DSTAT 


?CHECK AND RETURN DISK STATUS 



RET 



?RETURN TO CALLER. 


a 

END IF 




9 

? SET UP JUMPS INTO 

CP/M IN LOWER MEMORY. 

5A7C 

9 

3EC3 SETUP: 

MVI 

A, 0C3H 


? PUT JMP TO WBOOT 

5A7E 

320000 

STA 

0 


5ADR AT ZERO. 

5A81 

21035A 

LX I 

H, WBOOTE 


5A84 

220100 

SHLD 

1 



5A87 

320500 

STA 

5 



5A8A 

21064D 

LX I 

H, BDOS 


;PUT JUMP TO BDOS 

5A8D 

220600 

SHLD 

6 


? AT ADR 5,6,7. 

5 A 90 

218000 

LX I 

H, 80H 


5SET DEFAULT DMA ADR. 

5A93 

22B35D 

SHLD 

DMAADD 



5A96 

C9 

RET 



?RETURN FROM SETUP. 


9 

; WARM-BOOT: 

READ ALL 

OF CPM BACK IN 


5 EXCEPT BIOS, THEN 

M 

JUMP TO CCP. 

5A97 

318000 WBOOT: 

LX I 

SP,80H 


5SET STACK POINTER. 



IF 

INTRP 


5 IF INTERRUPTS ALLOWED, 



El 



;ALLOW THEM HERE. 



END IF 





IF 

LSTPAG 


?IF LIST DEVICE PAGING, 



XRA 

A 


5 RESET LINE-FEED COUNT. 



STA 

LFCNT 





END IF 



5A9A 

3AB55D 

LDA 

DISKNO 


5SAVE DISK NUMBER. 

5A9D 

F5 

PUSH 

PSW 


5SAVE ON STACK 

5A9E 

OEOO 

MVI 

C,0 


5 SELECT DRIVE A 

5AA0 

CD215B 

CALL 

SELDSK 


5 SELECT DRIVE A 

5AA3 

CDBF5B 

CALL 

HOME 


5H0ME THE DRIVE 


5AA9 

22BC5D 


SHLD 

DRVFLG 

5CLEAR DRIVE FLAGS 

5AAC 

22BE5D 


SHLD 

DRVFLG+2 


5AAF 

0619 


MV I 

B, NSECTS 

5GET # SECTORS FOR CPM READ. 

5AB1 

0E02 


MV I 

Co 2 

? TRACK (B) =01 SECTOR (0=2. 




IF 

INTRP 

5 IF INTERRUPTS ALLOWED, 




DI 


?DISABLE THEM HERE. 




END IF 


5AB3 

210045 


LX I 

HiCPMB 

;get STARTING ADDRESS. 

5AB6 

22B35D 

RBLKl: 

SHLD 

DMAADD 

5SET STARTING ADDRESS. 

5AB9 

CD415C 


CALL 

SETSEC 

iREAD STARTING AT SECTOR IN C. 

5ABC 

C5 


PUSH 

B 


5ABD 

CD7F5C 


CALL 

READ 


SACO 

Cl 


POP 

B 


SAC 1 

C2D05A 


•JNZ 

RDERR 

?IF ERROR, PRINT MESSAGE. 

5AC4 

OC 


I NR 

C 

;INCREMENT SECTOR NUMBER. 

SACS 

05 


DCR 

B 

?DECREMENT SECTOR COUNT. 

5AC6 

C2B65A 


JNZ 

RBLKl 

;ALL DONE WHEN D=0. 

5AC9 

FI 

ALDON: 

POP 

PSW 

5 RESTORE DISK NUMBER. 




IF 

INTRP 

■ IF INTERRUPTS ALLOWED, 




El 


,ALLOW THEM AGAIN HERE. 




END IF 


5ACA 

32B55D 


ST A 

DISKNO 


5ACD 

C3725A 

« 

JMP 

GOCPM 

? GO BACK TO CPM. 

5AD0 

21485D 

7 

RDERR: 

LX I 

HiBTMSG 

5GET ADDRESS OF "BOOT ERROR". 

5AD3 

CD235D 


CALL 

PMSG 

5 PRINT IT. 

5AD6 

CDE55A 


CALL 

CON IN 

,READ A CHAR FROM CONSOLE. 

5AD9 

C3975A 

■ 

JMP 

WBOOT 

5 DO A WARM BOOT. 



? CHECK 

M 

CONSOLE INPUT 

STATUS. 

SADC 

DBOO 

7 

CONST 5 

IN 

CSTAT 

5 READ CONSOLE STATUS. 

5ADE 

E601 


AN I 

CKBR 

jlook at kb ready bit. 

5AE0 

3E00 


MV I 

A,0 

?SET A=0 FOR RETURN. 




IF 

RDYLO 

;IF STATUS READY LOW, 




RNZ 


,NOT READY WHEN NOT 0. 




END IF 





IF 

RDYHI 

;IF STATUS READY HIGH, 

5AE2 

C8 


RZ 


;not ready when zero. 




END IF 


5AE3 

2F 


CMA 


5 IF READY A=FF. 

5AE4 

C9 


RET 


5 RETURN FROM CONST. 



5 

; READ 

A CHARACTER FROM CONSOLE. 



? 

CONINs 







IF NOT SOLOS 

;IF NOT PRQC TECH SOLOS, 

5AE5 

DBOO 


IN 

CSTAT 

,*READ CONSOLE STATUS. 

5AE7 

E601 


AN I 

CKBR 

; IF NOT READY, 




END IF 





IF 

SOLOS 

;IF PROC TECH SOLOS, 




CALL 

KBD 

5 READ SOL KEYBOARD. 




JZ 

CON IN 

5 READY WHEN NOT ZERO. 


END IF 

IF RDYLO AND NOT SOLOS 

JNZ CONIN 5 LOOP UNTIL LOW. 

crKin t cr 




IF RDYHI 


5AE9 

CAE55A 


JZ CONIN 

END IF 




IF NOT SOLOS 

5AEC 

DB01 


IN CDATA 

END IF 

SAEE 

E67F 


ANI 7FH 




IF BACKSP 

5AF0 

FE7F 


CPI 7FH 

5AF2 

CO 


RNZ 

5AF3 

3EFF 


MVI A,OFFH 

5AF5 

32B65D 


STA CONOTF 

5AF8 

3E7F 


MVI A,7FH 
ENDIF 

SAFA 

C9 


RET 



? 

5 WRITE 

a 

A CHARACTER 



7 

CONOTs 

IF BACKSP 

5AFB 

79 


MOV A,C 

5AFC 

FE7F 


CPI 7FH 

SAFE 

C8 


RZ 

5AFF 

3AB65D 


LDA CONOTF 

5B02 

B7 


ORA A 

5B03 

CA165B 


JZ CONOTA 

5 BO 6 

AF 


XRA A 

5B07 

32B65D 


STA CONOTF 

5B0A 

0E08 


MVI C,8 

5B0C 

CD165B 


CALL CONOTA 

5B0F 

0E20 


MVI C,20H 

5B11 

CD165B 


CALL CONOTA 

5B14 

0E08 

CONOTA: 

MVI C,8 




ENDIF 




IF CONUL AND 
MVI A,ODH 
CMP C 

JZ CONULL 

ENDIF 



CONOT1: 

IF NOT VIDEO 

SB 16 

DBOO 


IN CSTAT 

5B18 

E602 


ANI CPTR 
ENDIF 




IF RDYLO AND 
JNZ CONOT1 
ENDIF 




IF RDYHI AND 

5B1A 

CA165B 


JZ CONOT1 

ENDIF 




IF NOT VIDEO 

SB ID 

79 


MOV A,C 

SB IE 

D301 


OUT CDATA 

5B20 

C9 


RET 

ENDIF 


?IF READY WHEN HIGH, 
5 LOOP UNTIL HIGH. 


5 IF NOT PROC TECH SOLOS, 
5 READ A CHARACTER. 


5 MAKE MOST SIG. BIT = 0. 

■ IF BACKSPACE ACTIVATED, 
?IS IT A RUBOUT? 

5 RETURN IF NOT. 

5SET NO PRINT FLAG. 

5 RESTORE RUBOUT. 


5 RETURN FROM CONIN. 
TO THE CONSOLE DEVICE. 


5IF BACKSPACE ACTIVATED, 
5GET CHARACTER. 

5 IS IT A RUBOUT? 

?IF SO, DON'T PRINT IT. 

? GET NO PRINT FLAG. 

5 SET CPU FLAGS. 

5 NOT SET, SO PRINT. 

SRESET THE FLAG 
S TO ZERO. 

? PRINT BACKSPACE. 

SPRINT SPACE. 

;ANOTHER BACKSPACE. 


NOT VIDEO ;IF NULLS REQUIRED, 
5IF IT'S A CR, 

5 THEN HOP OUT 
5 TO NULL ROUTINE. 


AND NOT SOLOS 

5 READ CONSOLE STATUS. 
5 IF NOT READY, 


NOT VIDEO AND NOT SOLOS 
SLOOP UNTIL LOW. 


NOT VIDEO 5 IF READY WHEN HIGH, 
SLOOP UNTIL HIGH. 


AND NOT SOLOS 

5 GET CHARACTER. 
SPRINT IT. 

5 RETURN. 



IF eONUL AND NOT VIDEO 


CONULL: PUSH B 

MVI B, CNULL+1 
CONUL1: CALL CONOT1 
MVI C,0 
DCR B 
JNZ CONUL1 
POP B 
MOV A,C 
RET 
END IF 

IF SOLOS 
PUSH B 
MOV B, C 
CALL SCRN 
POP B 
MOV A,C 
RET 
END IF 


5 SAVE B&C. 

5 GET NULL COUNT. 

5 PRINT CR. 

5 GET NULL CHAR. 

5 DECREMENT COUNTER. 
5 DO NEXT NULL. 

5 RESTORE B&C. 

5 RESTORE A. 

5 RETURN. 


; IF PROC TECH SOLOS, 

5 SAVE B&C. 

?PUT CHAR IN B REG. 

5 OUTPUT CHAR TO SOLOS. 
5 RESTORE BS<C. 

5PUT CHAR IN A. 

5 RETURN FROM CONOT. 


IF VIDEO 


S IF ANY VIDEO BOARD, 


7 

« 

7 


VIDEO DRIVER FOR VB1-B OR VDM I BOARD. 

WRITTEN BY G.W.MULCHIN 

9-16-78 


MOV A,C 
PUSH H 
PUSH D 
PUSH B 
PUSH F'SW 
CALL VIDPRO 
POP F'SW 
POP B 
POP D 
POP H 
RET 


? GET THE CHAR INTO REG A 
5SAVE REGISTERS 


5CHAR. IS IN REG A 
5 DO VIDEO ROUTINE 
?RESTORE REGISTERS 


S BACK TO CALLER 


VIDPRO: LHLD VDMP 
CPI CR¬ 
UZ CARRET 
CPI LF 
JZ LFNOT 
CPI BKSP 
JZ BS 
CPI FF 
JZ CLEAR 
MOV M,A 
UPDATE: INX H 
GONE: MVI M,OAOH 

JMP MAXLIN 
LFNOT: MV I M, " 

JMP UPDATE 
BS: MV I M, x •" 

LHLD VDMP 
DCX H 
SHLD VDMP 
JMP GONE 
CARRET: MV I M, x 
MOV A,L 
ANI OCOH 
ADI 40H 
EOV L,A 
MVI A,0 

Anr u 


5GET SCREEN POSITION POINTER 
5 IS IT CARRIAGE RETURN? 

5IS IT LINEFEED? 

SPLIT IN A BLANK 
SIS IT A RUBQUT? 

SIS IT CNTL-L? 

SIT HAS TO BE DATA 
5 UPDATE POSITION 
5PUT CURSOR ON SCREEN 
5 CHECK FOR LINE > 64 
SPLIT IN A SPACE 
5 GET OUT NOW 

5 GET CURRENT POSITION 

5 SAVE CURSOR POSITION 

5CHAR. IS A CARRIAGE RET. 

SUPDATE NEXT POSITION 

5 SET UP FOR NEW LINE 
5 ADDRESS OF NEW LINE 



MOV 

H, A 


MAXLIN: SHLD VDMP 

5SAVE POINTER FOR NEXT CHAR 

MV I 

A, 7FH 


ANA 

L 


RNR 


SEXIT BACK TO MAIN PROGRAM 

MV I 

M, •' •- 


LXI 

H,SCRNTOP 


SHLD VDMP 


LXI 

H,LINES15 

515 LINES OF SCREEN DATA 

LXI 

D, SL-REEN 

STOP OF SCREEN. SET UP 

LXI 

B,SCRLCNT 

5 TO SCROLL 15 LINES 

SCROLL: MOV 

A, M 

5 START SCROLLLING UP 

STAX D 

SSTUFF REG A BY WAY OF D,E 

INX 

H 


INX 

D 


DCX 

B 


XRA 

A 


CMP 

B 

515 LINES YET? 

JNZ 

SCROLL 


CMP 

c 


•JNZ 

SCROLL 

SNOT DONE YET! 

LXI 

H,SCRNTOP 


BLANK: MVI 

M, - 

SPLIT BLANK ON SCREEN 

INX 

H 

5 BLANK ENTIRE DATA LINE 

MOV 

A, L 


AN I 

3FH 


JNZ 

BLANK 


LXI 

H,SCRNTOP 


MV I 

M,0AOH 

5 STUFF CURSOR BACK 

RET 


5 ALL DONE. 

CLEARS LXI 

H,SCREEN 

5 CLEAR SCREEN 

MVI 

A,ENDSCR 

5 THIS IS END CHECK 

CLERA: CMP 

H 

SIS IT END YET? 

JZ FINISH 


MVI 

M, ' '' 

SPLIT SPACE ON SCREEN 

INX 

H 

5 BUMP POINTER 

JMP 

CLERA 

5 GO BACK IF NOT DONE 

FINISHs LXI 

H,SCRNTOP 


MVI 

M,OAOH 

5 STUFF CURSOR BACK AGAIN 

SHLD VDMP 

5 SAVE CURSOR POSITION. 

RET 


5 ALL DONE. 

END IF 

SEND OF VDM DRIVER. 


5 SELECT DISK NUMBER ACCORDING TO REGISTER C. 

5 ALSO CHECK IF DISK HAS BEEN LOGGED IN BEFORE. 
S IF NOT, LOG IT IN AND CHECK DENSITY 


5B21 

79 

SELDSK: MOV 

A, L 

5 GET NEW DISK NUMBER. 

5B22 

E603 

AN I 

3 

5ONLY LOOK AT 2 LSD'S. 

5B24 

21B55D 

LXI 

H.DISKNO 

S GET ADR OF OLD DISK NO. 

5B27 

BE 

CMP 

M 

5 NEW ■ OLD? 

5B28 

CS 

RZ 


5 IF SO, RETURN. 

5B29 

F5 

PUSH 

A 

5 SAVE DISK NUMBER. 

5B2A 

3AC15D 

LDA 

NODSKS 

S GET NUMBER OF DISKS. 

5B2D 

3D 

DCR 

A 

SIF MORE THAN ONE DISK, 

5B2E 

C2465B 

JNZ 

SELMOR 

STAKE CARE OF IT. 

5B31 

215C5D 

LXI 

H,MNTMSG 

S GET ADR OF MOUNT MESSAGE 

5B34 

CD235D 

CALL 

PMSG 

SPRINT "MOUNT ". 

5B37 

FI 

POP 

A 

5GET DISK NUMBER. 

5B38 

*“i *“"» O CT CT T“» 

x. D J JL* 

STA 

DISKND 

SUPDATE OLD WITH NEW. 

5B3B 

C641 

ADI 

-A-' 

5 ADD ASCII FOR 'A'. 

5B3D 

4F 

MOV 

C, A 

SPLIT INTO C. 

5B3E 

CDFB5A 

CALL 

CONOT 

SPRINT IT. 

5B41 

CDE55A 

CALL 

CON IN 

5 READ A CARRIAGE RETURN. 

5B44 

AF 

XRA 

A 

5 SET A=Q FOR NO ERRO IND. 

crn ,i c 


DCT 


• dcti idm croriM ctri net' 


5B46 

FI 

SELMOR: POP 

A 

;make STACK RIGHT. 

5B47 

7E 

MOV 

A, M 

?GET OLD DISK NUMBER. 



IF 

DUAL 

;IF DUAL DRIVE, 



ANI 

OFEH 

;CLEAR OUT BIT 0. 



END IF 


5B48 

5F 

MOV 

E, A 

5 PUT OLD DISK NO. IN DS<E. 

5B49 

1600 

MVI 

D, 0 


5B4B 

21B85D 

LX I 

H,TRTAB 

5 GET ADDRESS OF TRACK TABLE 

5B4E 

E5 

PUSH 

H 

5SAVE FOR LATER 

5B4F 

19 

DAD 

D 

5 ADD DISK NO. TO ADDRESS. 

5B50 

DBF9 

IN 

TRACK 

?READ 1771 TRACK REGISTER. 

5B52 

77 

MOV 

M, A 

5 PUT INTO TABLE. 

5B53 

79 

MOV 

A, C 

;GET NEW DISK NUMBER. 



IF 

DUAL 

5 IF A DUAL DRIVE, 



ANI 

OFEH 

!CLEAR BIT 0. 



END IF 


5B54 

5F 

MOV 

E, A 

5PUT NEW DISK NO. IN DS<E. 

5B55 

El 

POP 

H 

■, RESTORE ADDRESS OF TRACK T< 

5B56 

19 

DAD 

D 

5 ADD DISK NO. TO ADDRESS. 

5B57 

7E 

MOV 

A, M 

?GET NEW TRACK NUMBER. 

5B58 

D3F9 

OUT 

TRACK 

5 PUT INTO 1771 TRACK REG. 

5B5A 

79 

MOV 

A, C 

5 UPDATE OLD DISK NUMBER. 

5B5B 

32B55D 

STA 

DISKNO 


5B5E 

87 

ADD 

A 

;PUT BITS 1&2 AT 4S<5. 

5B5F 

87 

ADD 

A 


5B60 

07 

O / 

ADD 

A 


5B61 

87 

ADD 

A 


5B62 

32C45D 

STA 

a 

LATCH 

5SAVE NEW LATCH CODE. 



* 

■SELECT DENSITY BASED Oh 

1 BYTE VALUE 



;IN TRACK 0 

SECTOR 1 ADDRESS 7EH. 



?IF THIS BYTE IS A ODDH, 

THEN THE 



5 DISK IS DOUBLE DENSITY, 

ELSE, IT'S 



5 SINGLE DENS 

II 

ITY. 


5B65 

C5 

7 

DENSITY:PUSH 

B 

5 SAVE B,C 

5B66 

21BC5D 

LX I 

H,DRVFLG 

5 INDEX INTO DRIVE BYTE FLAG 

5B69 

0600 

MVI 

B, 0 

? ZERO REG B 

5B6B 

09 

DAD 

B 

5 ADD THE DRIVE NUMBER 

5B6C 

7E 

MOV 

A, M 

;get THE BYTE FLAG 

5B6D 

B7 

ORA 

A 

?SET THE FLAGS 

5B6E 

FA975B 

JM LOGED 

SSKIP IF LOGGED IN BEFORE 

5B71 

E5 

PUSH 

H 

5SAVE DRIVE TABLE POINTER. 

5B72 

3AC45D 

LDA 

LATCH 


5B75 

D3FC 

OUT 

DCONT 

5 SELECT DRIVE 

5B77 

2AB35D 

LHLD 

DMAADD 

;get present dma address 

5B7A 

E5 

PUSH 

H 

“,SAVE ON STACK 

5B7B 

CDBF5B 

CALL 

HOME 

5 HOME DRIVE 

5B7E 

3E01 

MVI 

A, 1 

;SET FOR SECTOR 1 

5B80 

32B25D 

STA 

SECT 

5SAVE SECTOR TO READ 


5B83 21C65D 
5B86 22B35D 
5B89 CD7F5C 
5B8C El 
5B8D 22B35D 
5B90 El 

3A445E 
F680 
77 

010700 
E612 
B7 

i on ®-:a 


5B91 

5B94 

5B96 

5B97 

5B9A 

5B9C 

croon 


LX I H, DBIJFF 
SHLD DMAADD 
CALL READ 
POP H 
SHLD DMAADD 
POP H 

LDA DBUFF+7EH 


LOGED: 


OR I 
MOV 
LX I 
AN I 
ORA 


80H 
M, A 
B,7 
12H 
A 


?POINT TO DMA BUFFER 
5 SET UP THE DMA ADDRESS 
?READ TRK 0. SEC 1 INTO DBUFF 
!RECOVER DMAADD FROM STACK 
?RESTORE IT 

5RESTORE DRIVE TABLE POINTER. 

?GET THE DENSITY CODE BYTE 
;set logged in bit 
5 place it in flag table. 

;index value through drive tab! 
? MASK DENSITY AND SIDE BITS OUT 
?SINGLE DENSITY? 


5BA0 

CAA45B 

II 

JZ 

DENS IT1 

5 ves 7 over!av param. block 



7 

IF 

DUBS ID 





DAD 

B 

!no» add offset to next table 




CPI 

2 

;single den doub sided? 




JZ 

DENSIT1 

? ve s 




DAD 

B 

; no 




CPI 

10H 

?doub den single sided? 




JZ 

DENSIT1 

5 ves 



It 

END IF 


5BA3 

09 

* 

DAD 

B 

!no» must be doub den » doub sided 

5BA4 

EB 

DENS IT1 

: XCHG 

;drive table pointer —> d>e 

5BA5 

1A 


LDAX 

D 

;GET LOG BYTE 

5BA6 

13 


INX 

D 

5BUMP POINTER 

5BA7 

32C05D 


STA 

DENS 

?SET DENSITY 

5BAA 

1A 


LDAX 

D 

5 GET A BYTE FROM TABLE 

5BAB 

13 


INX 

D 

;bump POINTER 

5BAC 

32154D 


STA 

BDQS+15 

?CHANGE TRANS FUNCTION 

5BAF 

213A4D 


LX I 

H?BDOS+52 

?POINT TO CONSTANT DATA AREA (CP/M) 

5BB2 

0605 


MV I 

B,5 

;COUNT = 5 

5BB4 

1A 

MOVE: 

LDAX 

D 

5 GET A BYTE FROM TABLE 

5BB5 

77 


MOV 

M,A 

?OVERLAY CP/M 

5BB6 

13 


INX 

D 

? BUMP 

5BB7 

23 


INX 

H 

; POINTERS 

5BB8 

05 


DCR 

B 

? DECREASE COUNT 

5BB9 

C2B45B 


JNZ 

MOVE 

? AND LOOP TILL DONE 

5BBC 

Cl 


POP 

B 

?RESTORE B,C 

5BBD 

AF 


XRA 

A 

5 SET A = 0. 

5BBE 

C9 

m 

RET 


;RETURN FROM SELDSK. 



7 

5 MOVE 

n 

DISK 

TO TRACK 

ZERO. 

5BBF 

3E01 

7 

HOME: 

MVI 

A?O+STPRAT S RESTORE 

SBC 1 

D3F8 


OUT 

DCOM 


5BC3 

0E00 

n 

MVI 

C? 0 

5 TRACK 0 



7 

5 SET TRACK 

NUMBER TO 

WHATEVER IS IN REGISTER C. 



5 ALSO 

11 

PERFORM MOVE TO THE CORRECT TRACK (SEEK). 

5BC5 

2AC45D 

7 

SETTRK: 

LHLD 

LATCH 

jget new and old latch. 

5BC8 

7C 


MOV 

A,H 

jget latch value. 

5BC9 

E6B7 


AN I 

0B7H 

;strip density and side bits 

5BCB 

67 


MOV 

Hj A 

5 restore it. 



7 

IF 

DUBS ID 

;if using double sided drive 




LDA 

DENS 

?check if double sided. 




RRC 






RRC 


?look at bit 1 . 




JNC 

NOTSID 

"if bit 1 = 0 7 it's single s 




MOV 

A, C 

"it's doub sided? so get tra 




RRC 


?divide bv 2 . 




MOV 

B> A 

?save it in res b. 




MOV 

A,L 

?get old latch value. 




JC 

SIDE2 

5 change side if odd track. 




AN I 

OBFH 

"clear side bit from latch. 




JMP 

SETLAT 

?so set the latch. 



7 

SIDE2: 

OR I 

40H 

.turn on side select bit. 



SETLAT: 

STA 

CLATCH 

?save it for later. 




AN I 

OBFH 

?clear side bit. 




CALL 

OLDLAT 

Scheck for drive change. 




MOV 

Aj b 

?restore doub sided trk numb 




AN I 

7FH 

.clear bit 7. 




MOV 

C, A 

?trk number now in res c. 


livilTt *T* £2» r*T*T* it L. ... - 1. .»!! ^ .«4 4 4-.... .CL 4~ 



END IF 


9 





IF 

NOT DUBS 

ID ; if not using double si> 

5BCC 

C3DA5B 


JMP 

NOTSID 

5j ump around subroutine 



n 

END IF 


5BCF 

BC 

7 

OLDLAT! 

CMP 

H 

? new — o1d? 

5BD0 

3EFF 


MV I 

A , OFFH 

;if not, set = ff 

5BD2 

C2D65B 


JNZ 

SFLAG 


5BD5 

2F 


CMA 


5 new = old, set = 0. 

5BD6 

32B75D 

SFLAGs 

STA 

HLSF 

;save head load select 

5BD9 

C9 

n 

RET 



5BDA 

7D 

7 

NOTSID: 

MOV 

A, L 

?set latch value. 

5BDB 

32C55D 


STA 

CLATCH 

;save it 

5BDE 

CDCF5B 


CALL 

OLDLAT 

5 check For drive change 

5BE1 

3AC05D 

TRKSET: 

LDA 

DENS 

!CHECK DRIVE DENSITY FLAG 

5BE4 

OF 


RRC 


?IS IT ZERO ? 

5BE5 

D2F65B 


•JNC 

TRKSD 

5YES, WE ARE SINGLE DENSITY 

5BE8 

79 


MOV 

A) C 

5 RESTORE TRACK NUMBER 

5BE9 

FEO1 


CPI 

1 

5 IS IT TRACK 1 ? 

5BEB 

DAF65B 


JC 

TRKSD 

,* IF LESS THEN, SET SINGLE DEN. 

5BEE 

3AC55D 


LDA 

CLATCH 

5 GET THE CURRENT LATCH VALUE 

5BF1 

F 608 


OR I 

DDEN 

; SET BIT 4 ON (DOIJB DENSITY ON) 

5BF3 

C3FB5B 


JMP 

TRKDD 


5BF6 

3ACS5D 

TRKSDs 

LDA 

CLATCH 

5 GET CURRENT LATCH VALUE 

5BF9 

E6F7 


AN I 

DDDSB 

5 TURN OFF BIT 4 (SINGLE DENSITY 

5BFB 

32CS5D 

TRKDDs 

STA 

CLATCH 

;SAVE NEW CURRENT LATCH VALUE 

5BFE 

D3FC 


OUT 

DCONT 

5 AND SET THE HARDWARE LATCH 

5C00 

79 


MOV 

A,C 

5 RESTORE TRACK NUMBER 

SCO 1 

32B15D 

m 

STA 

TRK 

5UPDATE OLD WITH NEW. 



7 

; MOVE 
•1 

THE HEAD TO THE TRACK IN REGISTER A. 

5C04 

C5 

7 

SEEK: 

PUSH 

B 

5 SAVE B?<C. 

5C05 

47 


MOV 

B, A 

5SAVE DESTINATION TRACK. 

5C06 

3E0A 


MV I 

A, RTCNT 

? GET RETRY COUNT. 

5C08 

32C35D 

SRETRY: 

STA 

SERCNT 

?STORE IN ERROR COUNTER. 

5C0B 

DBF9 


IN 

TRACK 

? READ PRESENT TRACK NO. 

5C0D 

4F 


MOV 

C» A 

?SAVE IN C. 

5C0E 

79 


MOV 

A,C 

?DELAY. 

5C0F 

B8 


CMP 

B 

5SAME AS NEW TRACK NO.? 

SC 10 

“70 
/ O 


MOV 

A, B 


5C11 

C2165C 


JNZ 

NOTHR 

5JUMP IF NOT THERE. 

SC 14 

Cl 

THERE: 

POP 

B 

5 RESTORE B?<C. 

SC 15 

C9 


RET 


?RETURN FROM SEEK. 



NOTHR: 






? DELAY 

LOOP 

TO ALLOW 

TUNNEL 



? ERASE 

N 

TO END DURING 

WRITE. 

SC 16 

F5 

9 

PUSH 

PSW 


SC 17 

3ED0 


MV I 

A,ODOH 

5 COUNT = 208 

SC 19 

3D 

BUSY 1: 

DCR 

A 

5 LOOP 

SCI A 

C2195C 


JNZ 

BUSY 1 

5 TILL ZERO 

SC ID 

FI 


POP 

PSW 


SC IE 

78 


MOV 

A,B 

5 RESTORE A FROM B. 

SC IF 

D3FB 


OUT 

DDATA 

?TRACK TO DATA REGISTER. 

5C21 

3E1D 


MV I 

A,14H+STPRAT+HLAB 5 GET STEP RATE, DO 

IT »“■• •***« •*"# 
••J L* -I O 

D3F8 


OUT 

DCOM 

?SEEK WITH VERIFY. 




IF 

NOT DMACNTL 

5C25 

DBFC 


IN 

WAIT 


cr.-.-«7 

DBFS 


IN 

DSTAT 

5 CHECK STATUS 




END IF 



IF DMACNTL 

BUSY2S CALL SLOOP 5 USE DMA CHECK PORT 

END IF 


5C29 

E691 

AN I 

91H 

5 LOOK AT BITS. 

5C2B 

CA145C 

.JZ THERE 

? OK IF ZERO. 



IF TESTING 

?IF TESTING FOR ERRORS 



PUSH 

H 

5SAVE H2<L. 



LXI 

H,SECNT 

5 GET ADR OF SEEK ERR CTR 



I NR 

M 

?ONE MORE SEEK ERROR. 



POP 

H 

5 RESTORE H&L. 



END IF 


5C2E 

3AC39D 

LDA 

SERCNT 

5 GET ERROR COUNT. 

5C31 

3D 

DCR 

A 

?DECREMENT COUNT. 

., it,...“« 

C2085C 

JNZ 

SRETRY 

;RETRY SEEK. 

5C35 

Cl 

POP 

B 

5 RESTORE B&C. 

5C36 

21949D 

LXI 

H,SKMSG 

?PRINT "SEEK ". 

5C39 

DBFS 

IN 

DSTAT 

?READ DISK STATUS. 

5C3B 

E691 

AN I 

91H 

5 LOOK AT ERROR BITS. 

5C3D 

57 

MOV 

D, A 

;PUT IN REG D. 

5C3E 

C3A85C 

JMP 

ERMSG 

5 DO COMMON ERR MESSAGES. 



7 

5 SET DISK SECTOR NUMBER. 

II 

5C41 

79 

7 

SETSEC: MOV 

A, C 

;GET SECTOR NUMBER. 

5C42 

32B25D 

STA 

SECT 

5 PUT AT SECT # ADDRESS. 

5C45 

C9 

RET 


5 RETURN FROM SETSEC. 


5 SET DISK DMA ADDRESS. 


5C46 

60 

? 

SETDMA: 

MOV 

H, B 

? MOVE BS«C TO H&L. 

5C47 

69 


MOV 

L, C 


5C48 

22B39D 


SHLD DMAADD 

5 PUT AT DMA ADR ADDRESS. 

5C4B 

C9 

It 

RET 


?RETURN FROM SETDMA. 



7 

5 HOLD 

If 

- GET 

HEAD-LOAD 

BIT IF REQUIRED. 

5C4C 

3AB75D 

7 

HOLD: 

LDA 

HLSF 

!GET HEAD-LOAD FLAG. 

5C4F 

B7 


ORA 

A 

?IS A = ZERO? 

5C50 

CA619C 


JZ 

HDLD1 

5 HOP IF SO. 

5C53 

2F 


CMA 


;SET A = 0. 

5C54 

32B75D 


STA 

HLSF 

!SET FLAG = 0 IF NOT. 


? IF CHANGING TO A NEW DRIVE, PERFORM A SEEK 
5 TO THE SAME TRACK TO ALLOW THE HEAD TO UNLOAD. 


5C57 

DBF9 

IN 

TRACK 

;get present track 

5C59 

D3FB 

OUT 

DDATA 

5 AND TELL CONTROLLER 

5C5B 

3E15 

MV I 

A,14H+STPRAT 5 GET STEP COMMAND 

5C5D 

D3F8 

OUT 

DCOM 

? SEND IT TO FLOPPY CONTROLLER 



IF 

NOT DMACNTL 

5C5F 

DBFC 

IN 

WAIT 

5 WAIT FOR INTRQ 



END IF 




IF 

DMACNTL 




CALL 

SLOOP 

5 USE DMA CHECK PORT 



ENDIF 


5C61 

DBFS 

HOLDis IN 

DSTAT 

? READ 1771 STATUS. 

5C63 

E620 

AN I 

20H 

5 LOOK AT HL BIT. 

5C65 

3E04 

MV I 

A 7 4 


5C67 

C8 

RZ 




.~.i nr*. a 


* ucryvri t »*“• « »-*/vmcnri 




5C69 

C9 

RET 

« 


?RETURN FROM HOLD. 



7 

IF 

NOT DMACNTL 

5l6A 

32C25D 

DSKSETs STA 

ERCNT 

?SAVE RETRY COOUNT 

5C6D 

3ED0 

MV I 

A.ODOH 

5 CAUSE INTRP 

5C6F 

D3F8 

OUT 

DCOM 


5C71 

E3 

XTHL 


? SOME 

5C72 

E3 

XTHL 


? DELAY 


END IF 


IF INTRP 
DI 

END IF 





IF NOT DMACNTL 

5C73 

2AB35D 


LHLD DMAADD 

5 STARTING ADDRESS 

5C76 

3AB25D 


LDA SECT 

?GET SECTOR NUMBER 

5C79 

D3FA 


OUT SECTP 

5 TELL CONTROLLER 

5C7B 

CD4C5C 


CALL HDLD 

?CHECK FOR HEAD LOADED 

5C7E 

C9 


RET 




at 

END IF 




7 

5 READ 

THE SECTOR AT 

SECT 7 FROM THE PRESENT TRACK. 



; use 

at 

STARTING ADORES 

S AT DMAADD. 

5C7F 

3E0A 

7 

READ: 

MVI A 7 RTCNT 

5 GET RETRY COUNT. 



RRETRY 

tft 

« 





IF DMACNTL 





LX I B*80D0H 

5 FLOPPY READ, FORCE INTRP. 




LX I D.4080H 

■DMA READ, BYTE COUNT. 




CALL DMARW 

5COMMON READ/WRITE ROUTINE 




END IF 





IF INTRP 

;IF INTERRUPTS ALLOWED, 




DI 

;DISABLE THEM HERE. 




END IF 





IF NOT DMACNTL 

SCSI 

0680 


MVI B 7 80H 

?FLOPPY READ COMMAND. 

5C83 

CD6A5C 


CALL DSKSET 

?SET UP DISK CONTROLLER 

5C86 

BO 


ORA B 

?SET READ COMMAND 

5C87 

D3F8 

READE: 

OUT DCOM 

5 SEND COMMAND TO 1771. 

5C89 

DBFC 

RLOOP: 

IN WAIT 

,* WAIT FOR DRQ OR INTRQ. 

5C8B 

B7 


ORA A 

5 SET FLAGS. 

5C8C 

F2965C 


JP RDDONE 

? DONE IF INTRQ. 

5C8F 

DBFB 


IN DDATA 

,READ A DATA BYTE FROM DIS 

5C91 

77 


MOV M,A 

,PUT BYTE INTO MEMORY. 

5C92 

23 


INX H 

,INCREMENT MEMORY POINTER. 

5C93 

C3895C 


JMP RLOOP 

5KEEP READING. 

5C96 

DBFS 

RDDONE 

: IN DSTAT 

?READ DISK STATUS. 




END IF 





IF INTRP 

5 IF INTERRUPTS ALLOWED, 




El 

5 ALLOW AGAIN HERE. 




END IF 


5C98 

E69D 


ANI 9DH 

5 LOOK AT ERROR BITS. 

5C9A 

C8 


RZ 

?RETURN IF NONE. 

5C9B 

CDC75C 


CALL ERCHK 

;CHECK FOR SEEK ERROR. 




IF TESTING 





LX I H,RECNT 

? GET RD ERR COUNT ADDR. 




I NR M 

,ONE MORE ERROR. 




MOV A 7 M 







END IF 


5C9E 

3AC25D 


LDA 

ERCNT 

;GET ERROR COUNT. 

5CA1 

3D 


DCR 

A 

;DECREMENT COUNT. 

5CA2 

C2815C 


•JNZ 

RRETRY 

!TRY TO READ AGAIN. 

5CA5 

21375D 


LX I 

H,RDMSG 

5 PRINT "READ ". 

5CA8 

CD235D 

ERMSG: 

CALL 

PMSG 

? PRINT ORIGIN MESSAGE. 



ERMSG1: 







IF NOT VIDEO 

5 NEED MORE ROOM? 

SCAB 

7A 


MOV 

A, D 

5 GET ERROR BITS. 

SC AC 

E610 


ANI 

10H 

5 IF BIT 4 IS HIGH, 

5CAE 

212E5D 


LX I 

H,RNMSG 

5 PRINT "RECORD NOT FOUND 

5CB1 

C4235D 


CNZ 

PMSG 


5CB4 

7A 


MOV 

A, D 

5 GET ERROR BITS. 

5CB5 

E608 


ANI 

8H 

5IF BIT 3 IS HIGH, 

5CB7 

21325D 


LX I 

H,CRCMSG 

SPRINT "CRG ERROR". 

SC BA 

C4235D 


CNZ 

PMSG 





END IF 


5CBD 

214D5D 


LX I 

H,ERRMSG 

SPRINT "ERROR." 

5CC0 

CD235D 


CALL 

PMSG 



3E01 


MVI 

A, 1 

5 SET FOR PERM ERR MSG. 

sees 

B7 


ORA 

A 

5 SET FLAGS. 

5CC6 

C9 

* 

RET 





7 

5 ERCHK 

- CHECK FOR RECORD NOT FOUND ERROR. 

5CC7 


7 

ERCHK! 

MOV 

D, A 

5SAVE ERROR BITS IN D. 

sees 

E610 


ANI 

10H 

5 IF RECORD NOT FOUND, 

5CCA 

C8 

II 

RZ 





? 

5 CHECK 

FOR SEEK TO CORRECT TRACK, 



5 AND CHANGE 

IF NECESSARY. 

5CCB 

3EC4 

CHKSKs 

MVI 

A,0C4H 

5 SEND COMMAND TO 1771 

5CCD 

D3F8 


OUT 

DCOM 

STO READ ADDRESS. 




IF 

NOT DMACNTL 

5CCF 

DBFC 


IN 

WAIT 

5 WAIT FOR DRQ OR INTRQ. 




END IF 





IF 

DMACNTL 





CALL 

SLOOP 





END IF 


5CD1 

DBFB 


IN 

DDATA 

5 READ THE TRACK ADDRESS. 

5CD3 

47 


MOV 

B, A 

5 SAVE IN REGISTER B. 

5CD4 

DBFC 

CHKS2: 

IN 

WAIT 

5 WAIT FOR INTRQ. 

5CD6 

B7 


ORA 

A 

5 SET FLAGS. 

5CD7 

F2DF5C 


JP 

CHKS3 

5 DONE WITH READ ADR OP. 

5CDA 

DBFB 


IN 

DDATA 

5READ ANOTHER BYTE. 

5CDC 

C3D45C 


JMP 

CHKS2 

5 DO IT AGAIN. 

5CDF 

DBFS 

CHKS3! 

IN 

DSTAT 

5 READ DISK STATUS. 

5CE1 

B7 


ORA 

A 

5SET FLAGS. 

5CE2 

CAEE5C 


JZ 

CHKS4 

SREAD ADR OK IF 0. 

5CE5 

CDBF5B 


CALL 

HOME 

5 OTHERWISE, HOME FIRST. 

5CE8 

3AB15D 

CHKS5! 

LDA 

TRK 


5CEB 

C3045C 


JMP 

SEEK 


5CEE 


CHKS4! 

MOV 

A, B 

5 UPDATE TRACK REGISTER. 

5CEF 

D3F9 


OUT 

TRACK 


5CF1 

C3E85C 

* 

JMP 

CHKS5 

5 RETURN FROM ERCHK. 



5 WRITE 

THE 

SECTOR AT 

SECT, ON THE PRESENT TRACK 



5 USE! S 

TARTING ADDRESS 

AT DMAADD. 

5CF4 

3E0A 

7 

WRITES 

i 11 *“, i-~ r~, v. y x 

MVI 

A,RTCNT 

5 GET RETRY COUNT. 





IF 

DMACNTL 





LX I 

B,OAODOH 

5 FLOPPY WRITE, FORCE INTRP 




LX I 

D,0808OH 

? DMA WRITE, BYTE COUNT 




CALL 

DMARW 

5 COMMON ROUTINE 




END IF 





IF 

NOT DMACNTL 

5CF6 

06 AO 


MV I 

B, OAOH 

5 WRITE COMMAND 

5CF8 

CD6A5C 


CALL 

DSKSET 


5CFB 

BO 


ORA 

B 


5CFC 

D3F8 

WRITE2: 

OUT 

DCOM 


5CFE 

DBFC 

WLOOPls 

IN 

WAIT 

5 WAIT FOR READY. 

5D00 

B7 


ORA 

A 

;SET FLAGS. 

5D01 

F20B5D 


JP 

WDONE 

SHOP OUT WHEN DONE. 

5D04 

7E 


MOV 

A,M 

5 GET BYTE FROM MEM. 

5 DOS 

D3FB 


OUT 

DDATA 

5 WRITE ONTO DISK. 

5D07 

, T ; 4 .“i 


INX 

H 

SINCREMENT MEM PTR. 

5D08 

C3FE5C 


•JMP 

WL00P1 

5 KEEP WRITING. 

5D0B 

DBFS 

WDONE: 

IN 

DSTAT 





END IF 





IF 

INTRP 

5 IF INTERRUPTS ALLOWED, 




El 


5 ENABLE AGAIN HERE. 




END IF 


5D0D 

E6FD 


ANI 

OFDH 

5 LOOK AT THESE BITS. 

5 DOF 

C8 


RZ 


SRETURN IF NO ERR. 

3D 10 

CDC75C 


CALL 

ERCHK 

5CHECK/CORRECT SEEK ERR. 




IF 

TESTING 

SIF TESTING FOR ERRORS 




LXI 

H,WECNT 

5 GET ADR OF WRITE ERR CTR. 




INR 

M 

SONE MORE WRITE ERROR. 




MOV 

A,M 





CMA 






OUT 

OFFH 





END IF 


3D 13 

3AC25D 


LDA 

ERCNT 

5 GET ERROR COUNT. 

3D 16 

3D 


DCR 

A 

S DECREMENT COUNT. 

3D 17 

C2F65C 


•JNZ 

WRETRY 

5 TRY TO WRITE AGAIN. 

5D1A 

213F5D 


LXI 

H, WTMSG 

SPRINT "WRITE ". 




IF NOT VIDEO 

SNEED MORE ROOM? 

5D1D 

CD235D 


CALL 

PMSG 


5D20 

C3AB5C 


JMP 

ERMSG1 

5 DO COMMON MESSAGES. 




END IF 





IF 

VIDEO 

SWE NEED A RETURN. 




JMP 

ERMSG 




m 

END IF 




5 PRINT 

• 

THE 

MESSAGE AT 

HS<L UNTIL A ZERO. 

5D23 

7E 

PMSG: 

MOV 

A,M 

5GET A CHARACTER. 

5D24 

B7 


ORA 

A 

SIF IT'S ZERO, 

5D25 

C8 


RZ 


5 RETURN. 

SD26 

4F 


MOV 

Lp 7 A 

5 OTHERWISE, 

5D27 

CDFB5A 


CALL CGNOT 

SPRINT IT. 

5D2A 

oo 


INX 

H 

S INCREMENT H8<L, 

5D2B 

C3235D 

« 

JMP 

PMSG 

SAND GET ANOTHER. 



7 

S CBIOS 

m 

MESSAGES 




7 

IF NOT VIDEO 

SNEED MORE ROOM? 

5D2E 

49442000 

RNMSG5 

DB 

'ID ',0 



A ntSL^A OOAAArDr-MC-r: « 

no 

f-Dr _ ft 




END IF 


5D37 

0D0A524541RDMSG: 

DB 

5D3F 

0D0A575249WTMSG: 

DB 

5D48 

424F4F5420BTMSG: 

DB 

5D4D 

4552524F52ERRMSG s 

DB 

5D54 

ODOA534545SKMSG: 

DB 

5D5C 

ODOA4D4F55MNTMSG! 

DB 

5D&5 

0D0A544152SMSG! 

DB 

5D6F 

3234 

DB 

5D71 

4B2043504D 

DB 

5D86 

ODOA 

DB 


ODH, UAH, " Read " , O 
ODH, OAH, "Write "',0 
"Boot "* 

"'ERROR. ", 0 
ODH 7 OAH, "'See k "' 7 0 
0 DH 7 0AH 7 "' M o u n t ',0 
ODH,OAH, " Tarbe 11 "' 

MSI ZE/10+"'0" 7 MSI ZE MOD 10 + "0" 
"K CRM VI.4 of 7-14-80" 

ODH,0AH 


IF TARBELL ?IF USING TARBELL CPU. 

DB "Tarbell CPU, "' 

END IF 


5D88 


3253494F20 


IF STD ?IF STANDARD I/O, 

DB "Standard x 
END IF 


IF MS102 5 IF MITS 2SI0, 

DB " 2S10 "' 

END IF 


IF ISI02 
DB "SI0-2 "' 
END IF 

IF TUART 
DB "Tuart ' 
END IF 


IF IMSAI SI0-2i 


;IF TUART, 


IF SOLOS 5 IF PROC TECH SOLOS, 

DB "Solos " 

END IF 


IF VDM 5 IF PROC TECH VDM, 

DB "VDM ' 

END IF 


IF FLASH 5 IF VG FLASHWRITER, 

DB "Flashwriter " 

END IF 


IF VB1 ?IF SSM VB1-B, 

DB •" VB1 " 

END IF 

IF DUBSID 5 IF DOUBLE-SIDED, 

DB "Doub 1 e-Si ded "' 

END IF 


IF DUAL 5 IF DUAL DRIVE, 

DB "Dual "' 

END IF 


5D8D 


IF DMACNTL ;IF USING DMA CONTROL 

DB "'DMA x 
END IF 

DB "VER."' 


5D91 0D0A484F57 

? 


DB ODH, OAH, -'How Manv Di sks? , 0 


WRITE A CHARACTER ON LISTING DEVICE 



LIST! 


• 


IF LSTNUL 

S IF NULLS OR PAGING, 



MVI A,ODH 

5 IF IT '■ S A CR, 

f 



CMP C 

!THEN HOP OUT TO 


t 


JZ LINUL 

END IF 

5 NULL ROUTINE. 

f 

m 


IF LSTPAG 

5IF PAGING 


V 


MVI A,0AH 

5 GET A LINEFEED 

m 

c 


CMP C 

JZ LINUL3 

END IF 

;does it match? 

c 

€ 

5DA4 DB02 

LTBSY: IN LSTAT 

;read lister status. 

€ 



IF NOT TARDEL 



« 

5DA6 E602 

ANI LRBIT 

END IF 

5 LOOK AT READY BIT. 

t 

€ 

f 


IF TARDEL 

ANI 81H 

XRI 81H 

END IF 

? MASK 

€ 

€ 



IF TARDEL OR 

RDYLO ?IF READY WHEN LOW, 


« 


JNZ LTBSY 

END IF 

5 LOOP TILL LOW. 

€ 


t 

c 


5DA8 CAA45D 


5DAB 79 
5DAC B303 
5DAE C9 


IF NOT TARDEL AND RDYHI 5 IF READY WHEN HIGH, 

JZ LTBSY 5 LOOP TILL HIGH. 

END IF 


MOV A,C 
OUT LDATA 
RET 


;GET DATA BYTE. 

;PRINT IT. 

5 RETURN FROM LIST. 


* 


f 

f 

€ 

€ 

€ 

€ 

€ 

€ 

« 


LINUL! 

LINULl: 


IF LSTNUL OR 

LSTPAG 5IF NULLS OR PAGING, 

PUSH 

B 

5 SAVE B&C. 

MVI 

B,(LNULL 

AND OFFH) + l ? GET NULL COUNT 

CALL 

LTBSY 

!PRINT (CR FIRST). 

MVI 

C, 0 

5 GET NULL CHAR. 

DCR 

B 

SDECREMENT COUNTER. 

JNZ 

LINULl 

? DO NEXT NULL. 

JMP 

LINUL2 

5 EXIT THE ROUTINE. 


END IF 


LINUL3! 


NOTEOP: 
LSTF'Al! 


IF 

LSTPAG 

5 IF LIST DEV. PAGING, 

PUSH 

B 

? SAVE B, C PAIR 

LDA 

LFCNT 

5 GET LINE-FEED COUNT. 

INR 

A 

?INCREMENT IT. 

STA 

LFCNT 

?SAVE IT BACK. 

CPI 

LINCNT- 

(LINCNT/11) 5 END OF PAGE 

MVI 

B, 1 

? SET UP FOR 1 LF. 

JNZ 

NOTEOP 

SHOP IF NOT END. 

XRA 

A 

5 SET LF COUNT = 0. 

ST A 
MVI 

LFCNT 

B,< LINCNT/11) +1 ;BETWEEN PAGES. 

MVI 

C, OAH 

5GET LINE-FEED CODE. 

CALL 

LTBSY 

SPRINT LINE-FEED. 

DCR 

B 

5 DECREMENT LF COUNTER 

JNZ 

LSTF'Al 

5 DO NEXT LINE FEED? 


END IF 


IF LSTNUL OR LSTPAG 5 IF NULLS OR PAGING, 
POP B ? RESTORE B&C-. 

mhu a _ r- • Dirernocr a 


f 

€ 

« 

< 

€ 

< 

i 

4 

I 


# 


LINUL2: 


f 


RET 
END IF 


RETURN FROM LIST 


? PUNCH PAPER TAPE. 

m 

7 

5DAF C9 PUNCH! RET 5 RETURN FROM PUNCH. 

M 

7 

5 NORMALLY USED TO READ PAPER TAPE. 

H 

7 

5DBO C9 READER! RET 5 RETURN FROM READER. 

* 

7 

SNOTES AS THERE ARE ONLY NINE SECTORS 
;AVAILABLE FOR CBIOS ON THE SECOND SYSTEM TRACK (1), 

5THE LAST ADDRESS BEFORE THIS POINT SHOULD BE NO 
?GREATER THAN THE CBIOS STARTING ADDRESS + 047F (HEX) 
5 THIS WILL NORMALLY BE XE7F (HEX). 


? BIOS SCRATCH AREA. 


5DB1 

5DB2 

5DB3 


5DB5 


TRK: 

DS 

1 

SCURRENT TRACK NUMBER. 

SECT: 

DS 

1 

5 CURRENT SECTOR NUMBER 

DMAADD! 

DS 

Z 

5 DISK TRANSFER ADDRESS 

5 THE NEXT 

SEVERAL BYTE: 

3, BETWEEN STARTZ AND 

S ENDZ, 

* 

ARE 

SET TO ZERO 

AT COLD BOOT TIME. 

7 

STARTZ: 



SSTART OF ZEROED AREA. 

DISKNO! 

DS 

1 

5 DISK NUMBER (TO CP/M) 


IF 

TESTING 



! ERROR COUNTS. THESE LOCATIONS KEEP TRACK OF THE 
! NUMBER OF ERRRS THAT OCCUR DURING READ, WRITE, 


? OR SEEK OPERATIONS. 

? WHEN A COLD-START IS 

II 

7 

RECNT: DS 1 

WECNT! DS 1 

SECNT*. DS 1 

END IF 

tt 

7 

? SPECIAL FLAGS. 


THEY ARE INITIALIZED ONLY 
PERFORMED BY THE BOOOTSTRAP. 

5 READ ERROR COUNT. 

;WRITE ERROR COUNT. 

5 SEEK ERROR COUNT. 


5DB6 

CONOTFs 

DS 1 

5DB7 

HLSF! 

DS 1 



IF LSTPAG 


LFCNT: 

DS 1 


«• 

END IF 


7 

S TRTAB 

- DISK TRACK 


7 

m 

HEADS FOR UP 

5DB8 

TRTAB: 

DS 4 

5DBC 

DRVFLGs 

DS 4 

5DC0 

DENS: 

» 

DS 1 


S VDM S 

• 

CRATCH AREA. 


7 

ENDZ: 

IF VIDEO 


VDMP: 

DS 2 

END IF 

5DC i 

NODSKSs 

DS 1 

u-r*, 

cror-MT. 

no i 


SNO-PRINT FLAG (WHEN FF). 
?HEAD-LOAD SELECT FLAG. 


SPACING LINE-FEED COUNT. 


TABLE - PRESENT POSITION OF 
TO 4 DRIVES. 


5 DRIVE FLAG BYTES FOR 4 DRIVE 
5 CURRENT DRIVE FLAG BYTE 


SEND OF ZEROED AREA. 

5 IF VIDEO BOARD IN, 

SVIDEO CURSOR POSITION. 


SNUMBER OF DISKS. 
jpprcip rrn ikit pnp qctptp q 


5DC3 

SERCNT: 

DS 

1 

»SEEK RETRY COUNTER. 

5DC4 

LATCH: 

DS 

1 

5 NEW CODE FOR LATCH. 

5DC5 

CLATCHs 

DS 

1 

?CURRENT CODE IN LATCH 

5DC6 

DBUFF: 

DS 

128 

5 DENSITY SELECT BUFFER 

5E46 


END 







EO-TYPE 2AB10S64. F'RN 




> CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 

5 TARBELL ELECTRONICS 

■ 2.X VERSION OF 11-4-80 

“ Copyright (c) 1900 Tar-bell Electronics 

? This bios module is the CPM V2.X Auto Select Bios. 

' This bios reads single or double densitv disk. 

’ The Double density disk contains 51 sectors/track. 

? 77 tracks. Track 0 = single density. Tracks 1 - 76 
5 are double density at 51 sectors per track. 

; Note! If you leave DMACNTL false, you must have a CPU 
; which runs at 4 MHz to run double density. 

■ This bios now supports doub1e sided single/double density. 
5 THIS SECTION DEFINES THE I/O PORTS AND STATUS BITS. 

5 BY SETTING THE PROPER VALUES FOR THE EQU STATEMENTS. 

5 THE I/O MAY BE AUTOMATICALLY RECONFIGURED TO FIT MOST 
; SITUATIONS. THE TRUE AND FALSE ONES CONTROL CONDITIONAL 
? ASSEMBLIES OF DIFFERENT SECTIONS OF I/O ROUTINES TO FIT 

5 DIFFERENT INTERFACE REQUIREMENTS. 

» 

FFFF = TRUE EQU OFFFFH 5 DEFINE VALUE OF TRUE. 

0000 = 

B> 


? CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 

5 TARBELL ELECTRONICS 
? 2.X VERSION OF 11-4-80 

; Copyright (c) 1980 Tarbel1 Electronics 

“ This bios module is the CPM V2.X Auto Select Bios. 

» This bios reads single or double density disk. 

. The Double density disk contains 51 sectors/track. 

; 77 tracks. Track 0 = single density. Tracks 1 -• 76 
* are double density at 51 sectors per track. 

5 Note! If you leave DMACNTL false, you must have a CPU 
; which runs at 4 MHz to run double density. 

; This bios now supports double sided single/double density. 
. THIS SECTION DEFINES THE I/O PORTS AND STATUS BITS. 

; BY SETTING THE PROPER VALUES FOR THE EQU STATEMENTS. 

? THE I/O MAY BE AUTOMATICALLY RECONFIGURED TO TIT MOST 
; SITUATIONS. THE TRUE AND FALSE ONES CONTROL CONDITIONAL 
5 ASSEMBLIES OF DIFFERENT SECTIONS OF I/O ROUTINES TO FIT 
. DIFFERENT INTERFACE REQUIREMENTS. 

FFFF = TRUE EQU OFFFFII 5 DEFINE VALUE OF TRUE. 

0000 = FALSE EQU NOT TRUE 5 DEFINE VALUE OF FALSE. 

? 

5 ft################################################## 

THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 

?### FOR DIFFERENT CONSOLE I/O SYSTEMS *#* 

5 #####:•#•###########■##•###############•# ft# ft##-## ft##*##*# ft## 


0040 = 

MSI ZE 

EQU 

64 

5 MEMORY SIZE IN KBYTES. 

0000 = 

INTRP 

EQU 

FALSE 

1 TRUE 

IF 

INTERRUPTS ALLOWED. 

0000 = 

TARBELL 

EQU 

FALSE 

5 T RUE 

IF 

USING THE TARBELL Z-80 CPU. 

0000 = 

IDBASE 

EQU 

0 

5 BASE 

10 

ADDR FOR TARBELL CPU (0 or 1 

0000 = 

TIMER 

EQU 

FALSE 

5 TRUE 

IF 

USING CPU TIMER (Tarbel1 CPU 

0000 = 

STD 

EQU 

FALSE 

? TRUE 

IF 

STANDARD I/O. 




FFFF = 

MS 102 

EQU 

TRUE 

5 1 RUE 

IF 

HITS 2SI0. 


OOOO = 

VDB8024 

EQU 

FALSE 

? TRUE 

IF 

USING VDB-8024 BOARD. 

f 

CPU. 

0000 == 

DELTA 

EQU 

FALSE 

; TRUE 

IF 

USING DELTA PRODUCTS 

0000 = 

I SI 02 

EQU 

FALSE 

? TRUE 

IF 

IMSAI 310-2. 


0000 = 

TUART 

EQU 

FALSE 

; TRUE 

IF 

CRGMEMCO TUART. 

ft 

0000 = 

VIDEO 

EQU 

FALSE 

5 TRUE 

IF 

USING A MEMORY MAPPED 

VIDEO. 

0000 = 

OTHER 

EQU 

FALSE 

5 TRUE 

IF 

SOMETHING ELSE. 


0000 = 

SOLOS 

EQU 

FALSE 

5 TRUE 

IF 

PROC TECH SOLOS. 

€ 

0000 = 

DUBSID 

EQU 

FALSE 

; TRUE 

FOR DOUBLE SIDED DRIVES 

(1 losica 

FFFF = 

DMACNTL 

EQU 

TRUE 

5 TRUE 

IF 

USING DMA CONTROL. 


0004 = 

NDISK 

EQU 

4 

5 DEFINES 

THE NUMBER DRIVES IN 

SYSTEM. 


? 

IF 

VIDEO 

5 IF USING A VIDEO BOARD 



GUTADDR EQU 0 5 PUT OUTPUT ADDRESS HERE f 

END IF 


IF NOT SOLOS AND NOT TARDEL 5 IF NOT PROC TECH SOL^' 


0000 

a: 

CSTAT 

EQU 

0 5 CONSOLE STATUS PORT. 

m 

0000 

ss 

CCOM 

EQU 

0 5 CONSOLE COMMAND PORT. 


0001 

z= 

CDATA 

EQU 

1 5 CONSOLE DATA PORT. 

< 

0002 

= 

LSTAT 

EQU 

2 5 LIST STATUS PORT. 


0002 

s= 

LCOM 

EQU 

2 5 LIST COMMAND PORT. 


0003 

— 

LDATA 

EQU 

3 5 LIST DATA PORT. 

€ 



u 

END IF 


0000 


7 

CONUL 

EQU 

FALSE 5 CONSOLE NULLS? 

| 

0010 

= 

CNULL 

EQU 

16 5 CONSOLE NULL COUNT. 


0000 


LSTNUL 

EQU 

FALSE 5LIST DEVICE NULLS? 


0000 


LNULL 

EQU 

0 5LIST NULL COUNT. 

f 

0000 


LSTPAG 

EQU 

FALSE 5LIST DEVICE PAGING? 


0042 


LINCNT 

EQU 

66 ?LINES PER PAGE. 


0008 

— 

HLAB 

EQU 

8 58 FOR HD LD AT BEG OF SEEK. 

f 

ooo i 


STPRAT 

EQU 

1 ;RATE 0=3ms >1=6MS» 2=10MS, 3=20MS. 


0000 

- 

DUAL 

EQU 

FALSE ? TRUE IF DUAL HEADED (2 HEADS MOVING 

TOi 

m 



7 

€ 



THI 

:s is 

THE END OF THE AREA WHICH NORMALLY NEED *** 




5 -H-a-a- 

BE 

CHANGED FOR MOST CONSOLE I/O SYSTEMS •*** 

1 



; #&&#### g*#**###*-* a--aaa aaaaaaaa aaaaaaaaa aa aaaa aaaa 


0000 

zr 

RDYLO 

EQU 

STD OR SOLOS OR OTHER 5 STATUS READY WHEN LOW. 

i 

FFFF 

zz: 

RDYHI 

EQU 

NOT RDYLO 


0000 


TARDEL 

It 

EQU 

TARBELL OR DELTA ?IF USING TARBELL OR DELTA CPU. 



7 

IF 

TARDEL 5 IF USING TARBELL OR DELTA CPU 

1: 



CCOM 

EQU 

IOBASE+1 5 CONSOLE COMMAND PORT 




CSTAT 

EQU 

IGBASE+i 5 CONSOLE STATUS PORT ( CHAN A.) 

i 



CDATA 

EQU 

IOBASE+O ? CONSOLE DATA PORT 




LCOM 

EQU 

IOBASE-s-3 5LIST COMMAND PORT 




LS TAT 

EQU 

IOBASE+3 5 LIST STATUS PORT (CHAN B.) 

i 



LDATA 

EQU 

IOBASE+2 5LIST DATA PORT 




u 

END IF 




7 

m 

IF 

1 

TIMER AND TARBELL 5 MUST BE USING TARBELL 



7 

? TIMER 

19 

EQUATES 

€ 



7 

TCHO 

EQU 

IOBASE+4 ? TIMER CHAN 0 ADDRESS 




TCH1 

EQU 

10BA3E+5 5 TIMER CHAN 1 ADDRESS 

€ 



TCH2 

EQU 

IOBASE+6 5 TIMER CHAN 2 ADDRESS 



TCMND 

EQU 

IOBASE+7 5 TIMER COMMAND PORT 




IMASK 

EQU 

IOBASE+8 5 INTERRUPT MASKING PORT 

* 



CNTRO 

EQU 

OOOOOOOOB ; counter 0 




CNTR1 

EQU 

01OOOOOOB 5 c ou n ter 1 




CNTR2 

EQU 

1OOOOOOOB ;counter 2 

t 



RLWORD 

EQU 

00110000B 5 read/load Isb 1st* msb 2nd. 





RLHBYTE 

EQU 

001OOOOOB 

iread/load msb only. 


RLLBYTE 

EQU 

00010000B 

5 read/1oati 1sb on1y. 


CNTRLT 

EQU 

OOOOOOOOB 

5 counter latching operation. 


BINARY 

EQU 

OOOOOOOOB 

?select binary operation. 


BCD 

EQU 

0000000IB 

;select BCD operation. 


MODEO 

EQU 

OOOOOOOOB 

5 interrupt on terminal count. 


MODE 1 

EQU 

00000010D 

5 programmable One-shot. 


M0DE2 

EQU 

00000100B 

5 rate generator. 


MODES 

EQU 

0000011OB 

5 square wave rate generator. 


M0DE4 

EQU 

00001000B 

?software triggered strobe. 


MODES 

EQU 

0000101OB 

;hardware triggered strobe. 


• 

END IF 




IF 

SOLOS 

;IF PROC TECH SOLOS» 


CSTAT 

EQU 

OF AH 

5 CONSOLE STATUS PORT. 


KBD 

EQU 

0C02EH 

5 bULUb KEYBOARD. 


CLRSCR 

EQU 

0C0D5H 

?CLEAR SCREEN. 


SCRN 

EQU 

0C054H 

5 SOLOS OUTPUT. 



END IF 




IF NOT SOLOS 

;IF NOT PROC TECH SOLOS> 

OOEO = 

DMAP 

EQU 

OEOH 

?DMA BASE ADDRESS. 

OOFS = 

DISK 

EQU 

0F8H 

5DICK BASE ADDRESS. 


m 

END IF 



7 

IF SOLOS 

■IF PROC TECH SOLOS» 


DMAP 

EQU 

060M 

?DMA BASE ADDRESS. 


DISK 

EQU 

078H 

?DIFFERENT DISK PORTS. 


* 

END IF 


OOEO = 

7 

ADRO 

EQU 

DMAP+O 

5 DMA ADDRESS REG PORT. 

OOE1 — 

WCTO 

EQU 

DMAP+1 

5 DMA WORD COUNT REG PORT. 

00E8 = 

CMND 

EQU 

DMAP+8 

? DMA COMMAND PORT. 

OOFS = 

DCOM 

EQU 

DISK 

5DISK COMMAND PORT. 

OOFS = 

DSTAT 

EQU 

DISK 

5 DISK STATUS PORT. 

OOFS = 

TRACK 

EQU 

DIbK+1 

5 DISK TRACK PORT. 

OOFA = 

SECTP 

EQU 

DISK42 

5 DISK SECTOR PORT. 

OOFS = 

DDAT A 

EQU 

DISK+3 

5 DISK DATA PORT'. 

OOFC = 

WAIT 

EQU 

DISK+4 

5 DISK WAIT PORT. 

OOFC = 

DCQNT 

EQU 

DISK+4 

?DISK CONTROL PORT. 

OOFD = 

DMACHK 

EQU 

DISK45 

5 DMA CHECK PORT. 

OOOA = 

RTCNT 

EQU 

10 

5 RETRY COUNT. 


? 

IF 

STD 

5 IF STANDARD I/O, 


CKBR 

EQU 

0000000IB 

!KEYBOARD READY BIT. 


CPTR 

EQU 

1OOOOOOOB 

? CONS OUTPUT RDY BIT. 


n 

END IF 



7 

IF 

MS 102 

5 IF MITS 2SID, 

OOOl = 

CKBR 

EQU 

0000000IB 

5 KEYBOARD READY BIT. 

0002 = 

CPTR 

EQU 

0000001OB 

5 PRINT READY BIT. 


II 

END II- 




7 

IF 

VDB8024 

5 IF VDB-C024 BOARD. 


CKBR 

EQU 

0000001OB 

;KEYBOARD READY BIT. 


CPTR 

EQU 

00000100B 

5 CONS OUTPUT RDY BIT. 


•1 

END IF 



7 

IF 

I SI 02 



CKBR 

EQU 

0000001OB 

5 KEYBOARD READY BIT . 


CPTR 

EQU 

0000000IB 

5 PRINT READY BIT. 



END IF 



? 

IF 

TARDEL 



CKBR 

EQU 

0000001OB 

?KEYBOARD READY BIT. 


CPTR 

EQU 

0000000IB 

5 PRINT READY BIT. 







END IF 



5 

IF 

TUART ?IF CROMEMCO TUART, 



CKBR 

EQU 

01OOOOOOB 5 KEYBOARD READY BIT. 



CF'TR 

EQU 

10000000B 5 PRINT READY BIT. 



II 

END IF 



7 

IF 

SOLOS 5 IF PROC TECH SOLOS, 



CKBR 

EQU 

0000000IB 5 KEYBOARD READY BIT. 



CF'TR 

EQU 

1OOOOOOOB ?DUMMY EQU. 



II 

END IF 



7 

IF 

OTHER 5 IF SOMETHING ELSE, 



CKBR 

EQU 

0000001OB ?KEYBOARD READY BIT. 



CF'TR 

EQU 

1OOOOOOOB SPRINTER READY BIT. 



m 

END IF 

0002 

= 

7 

LRBIT 

m 

EQU 

CF'TR 5 LISTER READY BIT. 

0003 

ZZ 

7 

IOBYTE 

EQU 

3 5 ADDRESS OF I/O BYTE. 

B000 

= 

CBASE 

EQU 

(MSIZE-20)*1024 5 BIAS FOR LARGER THAN 20K. 

E400 

zz 

CF'liB 

EQU 

CBASE+3400H 5 START OF CPM 2.0 

EC06 

zz 

BD03 

EQU 

CPMB+-806H 5 START OF BDOS 2.0. 

FAOO 

zz 

BIOS 

EQU 

CPMB+1600H 5 START OF CBIOS 10. 

0004 

zz 

CDISK 

EQU 

4 5 LOCATION 4 IS CURRENT DISK. 

0011 

zz 

NSECTS 

M 

EQU 

17 5 NUMBER OF SECTORS IN IT. 

E408 


7 

* 

ORG 

CPMB+8 

E408 

0D0A54617 

7 

2SMSG 5 

DB 

ODH.OAH,•Tarbell ' 

CTA1 •:> 

3 6 3 4 


DB 

MS IZE /10+ -• 0 •-, MS I Z£ MOD 10+ •" 0 " 

E414 

4B2043504D 

DB 

- K CPM 2.2, ODH, OAH 

E41F 

4175746F2D 

DB 

Au t o - - Se 1 € c t ■' 




IF 

DUBSID 




DB 

"Double Sided •" 




END IF 


E42B 

7665722061 

r~ 

F 

M 

DB 

vsr of 11 —4-SO, 0 



y 

", BOOT 





; THIS 

SECTION IS EXECUTED WHENEVER RESET AND RUN 



; is F'U 

SHED » 

AFTER THE COLDSTART LOADER READS IN 



5 THE CRM SYSTEM. 

w 

E43A 

318000 

7 

BOOTS 

LX I 

SP,80H 5 SET STACK POINTER. 



? 

IF INTRP AND NOT DMACNTL?IF INTERRUPTS ALLOWED, 




El 

5 ENABLE THEM HERE. 



m 

END IF 



7 

IF 

MS102 5 IF M1TS 2SI0, 

E43D 

3E03 


MV I 

A,3 5 INITIALIZE 2SI0. 

E43F 

D300 


OUT 

CCOM 

E441 

0302 


OUT 

LOOM 

E443 

3E11 


MV I 

A, 11H 

E445 

D300 


OUT 

CCOM 

E447 

D302 


OUT 

LOOM 




END IF 




1 

IF 

TARDEL OR ISI02 




LX I 

H,IOINIT Spoint to 8251 init. bytes 




MVI 

B,4 S there are 4 of them 



INITIOS 

MOV 

A,M 5 set a byte 




OUT 

CCOM 5 out to command port of cons 




OUT 

LOOM 5 out to command port of list 




INX 

H ;bump pointer 




OCR 

B ?decrease count 


i 

< 

€ 

€ 

€ 

< 

< 

< 

( 

€ 


t 

€ 

« 

f 

€ 

€ 

f 

< 

I 

II 

-r 

i 






JNZ 

INITIO 

;loop till done. 



II 

END IF 





7 

IF 

TUART 

5IF CROMEMCO TUART, 




MV I 

A, 1 

3 SE T A = 1. 




OUT 

54H 

!SELECT DEVICE A. 




OUT 

52H 

5RESET DEVICE B. 




LX I 

H, BAUBR 8 

5 GET ADR OF BAUD RATE TABLE. 




MVI 

A, 11H 

;OCTUPLE THE CLOCK. 



ITl! 

OUT 

02U 

3$< RESET CURRENT DEV. 




MOV 

A,M 

5 GET BAUD RATE FROM TABLE. 




INX 

H 

;INCREMENT POINTER. 




OU T 

0 

5 SET BAUD RATE. 




CALL 

CON IN 

5 READ KEYBOARD. 




CALL 

CON IN 

?READ KEYBOARD AGAIN. 




CPI 

ODH 

5 IF NOT CARRIAGE-RETURN, 




MVI 

A, 1 

5 SLOW THE CLOCK. 




JNZ 

ITl 

5 UNTIL A CARRIAGE-RETURN. 



n 

END IF 




7 

IF 

SOLOS 

5 IF F'ROC TECH SOLOS, 




CALL 

CLRSCR 

?CLEAR SCREEN. 




END IF 




7 

IF DMACNTL 


E449 

2184FA 


LX I 

H,RWDMA 

5POINT TO DMA ROUTINE 

E44C 

2201FA 


SHLD 

DMAENT+1 

5 MODIFY BOOT JMP ADDRESS. 




END IF 




7 

IF 

TIMER AND TARBELL 

?IF USING TARBELL CPU 




MVI 

A, CNTRO +-RLW0RD+M0DE2+BI NARY 5 INIT 8253 




OUT 

TCMND 

,SEND IT TO COMMAND PORT 




LX I 

D 7 *— 1 •-.* •—* •»' 

;TIME CONSTANT FOR 60 HZ 




MOV 

A 7 C 





OUT 

TCHO 

5 LS BYTE OF COUNT 




MOV 

A,B 





OUT 

TCHO 

"MS BYTE OF COUNT 



II 

END IF 


E44F 

C3C0F9 

? 

H 

JMP 

BOOTF 

3 FINISH BOOT 



? 

IF 

TARDEL OR ISI02 




I 01 NIT5 

DB 

OAAH,04OH 7 OCEH,037H 



II 

END IF 




? 

IF 

TUART 

3 IF CROMEMCO TUART, 



BAUDRSs 

DB 

94H 7 OCEH , 0A2H , 92H, 

88 H , 84H , 82H , 1 




END IF 


f '9C0 


7 

ORG 

BIOS-64 

3 HIDE REST OF BOOT HERE. 

F9C0 

AF 

BOOTFs 

XRA 

A 

5 CLEAR SCRATCH AREA. 

F9C1 

320300 


STA 

IOBYTE 

5 CLEAR I/O BYTE. 

F9C4 

320400 


STA 

CDISK 

3 SELECT DRIVE ZERO 

F9C7 

0611 


MVI 

B?ENDZ-ST ARTZ 

5 GET LENGTH OF ZERO AREA. 

F9C9 

2127FD 


LX I 

H»STARTZ 

3 GET SCRATCH ADDRESS. 

F9CC 

77 

BOOTLs 

MOV 

M, A 

3 PUT ZERO IN MEMORY. 

F9CD 

23 


INX 

H 

3 INCREMENT POINTER. 

F9CE 

05 


DCR 

D 

3 DECREMENT COUNTER. 

F9CF 

C2CCF9 


JNZ 

BOOTL 

SLOOP TILL DONE. 

F9D2 

DB01 


IN 

CD AT A 

5 CLEAR CONSOLE STATUS. 

F9D4 

2108E4 


LX I 

H,SMSG 

5 POINT TO SIGN ON. 

F9D7 

7E 

PliSGs 

MOV 

A, M 

5 GET A BYTE OF THE MESSAGE 

F9D8 

23 


INX 

H 

3 BUMP MEMORY PQIN TER. 

F9D9 

B7 


ORA 

A 

5 IS IT A ZERO? 

F9DA 

CA1DFB 


JZ 

GOCPM 

5 YES, WE ARE DONE, JMP TO CPM 

F9DD 

4F 


MOV 

L* 7 A 

5 NOPE, PRINT MORE MESSAGE. 




F'?DE CD5CFB 

CALL 

CONOT 

5 USE THE CONOT ROUTINE. 

F9E1 C3D7F9 

JMP 

m 

PMSC 

5 AND LOOP TILL DONE. 

FAOO 

7 

ORG 

M 

BIOS 

?START OF CBIOS STRUCTURE. 


7 

5 I/O JUMP VECTOR 



? THIS IS WHERE CPM CALLS WHENEVER IT NEEDS TO DO ANY INPUT/OUTf 
? OPERATION. USER PROGRAMS MAY USE THESE ENTRY POINTS ALSO, B\M 
; THAT THE LOCATION OF THIS VECTOR CHANGES WITH THE MEMORY SIZE, 


FAOO 

C33AE4 

DMAENTs 

JMP 

BOOT 

FA03 

C3EFFA 

WBOOTE 5 

JMP 

WBOOT 

FA06 

C344FB 


JMP 

CONST 

FA09 

C351FB 


JMP 

CON IN 

FAOC 

C35CFB 


JMP 

CONOT 

FAOF 

C319FD 


JMP 

LIST 

FA 12 

C313FD 


JMP 

PUNCH 

FA15 

C313FD 


JMP 

READER 

FA IS 

C3F4FB 


JMP 

HOME 

FA1B 

C367FB 


JMP 

SELDSK 

FA IE 

C3FAFB 


JMP 

SETTRK 

FA21 

C368FC 


JMP 

SETSEC 

F* A24 

C378FC 


JMP 

SETDMA 

FA27 

C39DFC 


JMP 

READ 

FA2A 

C3F2FC 


JMP 

WRITE 

FA2D 

C30CFD 


JMP 

PRSTAT 

FA 30 

C36DFC 

II 

JMP 

SECTRAN 



1 

S THIS 

SECTION DEFINES THE 

F A33 

s 

? 

DPBASE 

EQU 

* 

FAS 3 

97FA0000 

DPEO s 

DW 

XLTO,OOOOH 

FA37 

00000000 


DW 

OOOOH,OOOOH 

FA3B 

38FD76FA 


DW 

DIRBUF, SDTAB !• 

FA3F 

D7FDB8FD 

M 

DW 

CSVO,ALVO 

FA43 

97FA0000 

7 

DPE1 s 

DW 

XLT1,OOOOH 

FA47 

00000000 


DW 

OOOOH,OOOOH 

FA4B 

38FD76FA 


DW 

01RBUF.DPB1 

FA4F 

OEFEEFFD 

M 

DW 

CSV1,ALV1 

FA53 

97FA0000 

7 

DPE25 

DW 

XLT2,OOOOH 

FA57 

00000000 


DW 

OOOOH,OOOOH 

FA5B 

38FD76FA 


DW 

DIRBUF,DPB2 

FA5F 

43FE26FE 


DW 

CSV2,ALV2 

FA63 

97FA0000 

7 

DPE3S 

DW 

XLT3,OOOOH 

FA67 

00000000 


DW 

OOOOH,OOOOH 

FA6B 

38FD76FA 


DW 

DIRBUF,DPB3 

FA6F 

7CFE5DFE 


DW 

CSV3,ALV3 


7 


? FROM SDOOT LOADER, CHANGED FOFg] 


5 FROM WARM BOOT. 

5 CHECK CONSOLE KB STATUS. 

;reab console character. ( 

5 WRITE CONSOLE CHARACTER. 

;WRITE LISTING CHAR. 

;WRITE PUNCH CHAR. § 

;READ READER CHAR. 

* MOVE DISK TO TRACK ZERO. 

5 SELECT DISK DRIVE. f 

?SEEK TO TRACK IN REG A. 

»SET SECTOR NUMBER. 

?SET DISK STARTING ADR. f 

5 READ SELECTED SECTOR. 

;WRITE SELECTED SECTOR. 

;LIST STATUS CHECK. § 

5 SECTOR TRANSLATE ROUTINE. 

THE DISK PARAMETERS § 

5 BASE OF DISK PARAMETER BLOCK 
5 TRANSLATE TABLE g 

5 SCRATCH AREA 

i 5 DIR BUFF, FARM BLOCK 

5 CHECK, ALLOC VECTORS g 


€ 


j 


€ 


< 


€ 


5 THE FOLLOWING DESCRIBES THE DISK PHYSICAL NATURE, SUCH AS 
5 SECTORS/TRACK,DIRECTORY SIZE, ETC... f 

5 THE FOLLOWING TABLE DEFINES A SINGLE DENSITY DRIVE. 


FA73 

- 

SDTAB 5 EQU 

* 

FA73 

00 

DB 

OOH 

FA74 

97F A 

DW 

XLTO 

FA76 

1AOO 

DW 

26 

FA78 

03 

DB 

3 

FA79 

07 

DB 

7 

FA7A 

00 

DB 

0 

FA7B 

F200 

DW 

242 

FA7D 

3F00 

DW 

63 

FA7F 

CO 

DB 

192 

FAOO 

00 

DB 

0 


? ONE OF 4 DISK FARM. BLOCKS g 
SLOG BYTE SINGLE DENSITY 
SUSE SINGLE DENSITY TRANSLATE T 
? SECTORS/TRACK g 

SBLOCK SHIFT 
?BLOCK MASK 

5 EXTNT MASK g 

"DISK SIZE - 1 
SDIRECTORY MAX. 

5 ALLOCO g 

SALLOC1 



FA81 

1000 

DW 

16 

5 CHECK SIZE 

t 

FA83 

0200 

II 

DW 

X. 

?NUMBER OF SYSTEM TRACKS £ 



7 

IF 

DUBSID 

5 is usins double sided dr ives. 

« 


m 

7 



f 



* Defines a 

it 

Sins1e density/ D 

ouble sided disk 

« 


7 

DB 

02H 

; 1 os bvte dout* sided £ 



DW 

XLTO 





DW 

26 





DB 

4 

C 




DB 

15 





DB 

0 


€ 



DW 

242 

€ 



DW 

95 

5 allow 95 entrvs for- dir. 




DB 

192 


C 



DB 

0 

< 




DW 

24 





DW 

2 


< 


« 

END IF 

€ 



* 

?THE following table defines 

A DOUBLE DENSITY DRIVE. 

€ 


7 



f 

FA85 

01 DDTAB: 

DB 

01H 

51 os bvte doub den/sins sided 


FA86 

0000 

DW 

0 

;N0 SECTOR TRANSLATE FABLE. 

i 

FA88 

3300 

DW 

51 

? 51 SECTORS. f 


FA8A 

04 

DB 

4 

5 BLOCK SHIFT. 


FA8B 

OF 

DB 

15 

5 BLOCK MASK. 

< 

FA8C 

00 

DB 

0 

*, EX TENT MASK. £ 

FA8D 

EDOO 

DW 

237 

5DISK SIZE ~1 


FA8F 

5F00 

DW 

95 

!DIRECTORY MAX. 

1 

FA91 

CO 

DB 

192 

!ALLOCO £ 


FA92 

00 

DB 

0 

5 ALLOC1 


FA 93 

1800 

DW 

24 

?CHECK SIZE 

€ 

FA95 

0200 

II 

DW 

X. 

5 NUMBER OF SYSTEM TRACKS. £ 



7 

m 

IF 

DUBSID 

»if usins double sided drives. 

M 1 - 

€ 


7 

' Defines a 

N 

Double densitv/Do 

1 

ub sided drive 

< 


* 

DB 

OSH 

?1 os bvte and dub sided f 



DW 

0 





DW 

51 


f 



DB 

5 

i 




DB 

31 





DB 

0 


€ 



DW 

237 

'« 



DW 

95 





DB 

192 


i 



DB 

0 

< 




DW 

24 





DW 

2 


t 


« 

END IF 

€ 



7 

5 SECTOR 

TRANSLATION TABLE 


€ 


m 

7 



« 


FA97 

= XLT 0 

EQU 

$ 

? START OF TRANS. TABLE 


FA97 

0107001319 

DB 

a */ a a .~,Cr 

X 7 / 7 J.O? 1 y 7 JU .•-.* 


• 

FA9C 

050B111703 

DB 

5.11,17,23,3 

< 


FAA1 

090F150208 

DB 

9,15,21,2,8 



FAA6 

OE141A060C 

DB 

14,20,26,6,12 


€ 

FAAB 

1218040A10 

DB 

1 L5 7 7 Q 7 10* 1 6* * 

€ 


FA76 

5 

= DPBl 

EQU 

SDTAB+3 

5 EQUIVALENT PARAMETERS 

€ 

FA97 

= XLT 1 

7 

EQU 

XLTO 

5 SAME TRANSLATE TABLE £ 



FA76 = 

DPB2 

EQU 

SDTAB+3 

FA97 = 

XLT2 

It 

EQU 

XLTO 

FA76 = 

DPB3 

EQU 

SDTAD+3 

FA 97 = 

XLT3 

EQU 

XLTO 


5 DISK SET UP ROUTINE. THIS ROUTINE IS COMMON TO BOTH THE 
5 READ AND WRITE ROUTINES FOR DMA OPERATION. THIS ROUTINE 
5MAY BE USED STAND ALONE BY PASSING PARAMETERS TO IT AND 
■•JUMPING TO WB00T-3 HEX. THIS JUMP VECTOR IS CHANGED WHEN 
5 CP/M IS BOOTED UP. 

«B 

* 

5ENTERY POINT = RWDMA: 

M 

7 

? USER MUST SET UP DMAADD FOR MEMORY ADDRESS AND 
5 USER MUST SET UP DISK SECTOR WITH 'SE rSEC " ENTRY 
;THE TRACK TO READ OR WRITE MUST BE SET UP USING ''SETTRK" 
;BEFORE USING RWDMA ROUTINE EXTERNALLY. 

m 

? 

"ENTRY PARAMETERS: 

?B = FLOPPY DISK (1793) READ/WRITE COMMAND BYTE 

5 C = FLOPPY DISK (1793) FORCE INTERRUPT COMMAND BYTE 

?D = DMA (8257) READ/WRITE COMMAND 4 HIGH BYTE COUNT 

5 E = DMA (8257) LOW BYTE COUNT (80 HEX -=128 BYTES) 

tt 

V 

"EXIT VALUES 

? B» C = FLOPPY COMMANDS 

$D.E = DMA COMMAND + BYTE COUNT. 

!H,L = (H> L + D» E) 

5A = FLOPPY DISK STATUS BYTE 

R 

7 

?STACK USAGE IS 1 LEVEL DEEP. 




n 

IF DMACNTL 

5 IF USING DMA CONTROL 

FAB1 

3234FD 

J 

DMARW: 

STA 

ERCNT 

5 SAVE ERROR COUNT. 

FAB4 

3A24FD 

RWDMA: 

LDA 

SECT 

5 GET SECTOR TO READ/WRITE 

FAB7 

D3F A 


OUT 

SECTP 

;AND SEND IT FLOPPY CHIP. 

FAB9 

2A25FD 


LHLD 

DMAADD 

5GET CPM DMA ADDRESS. 

FABC 

AF 

DMARWE: 

XRA 

A 

?CLEAR ACCUM. 

FABD 

D3E8 


OUT 

CMND 

?RESET DMA CHIP. 

FABF 

79 


MOV 

A.C 

5FORCE INTERRUPT COMMAND BYTE 

FACO 

D3F8 


OUT 

DCOM 

5 SEND IT TO CONTROLLER. 

FAC2 

7B 


MOV 

A,E 

5 BYTE COUNT TO TRANSF ER 

FACS 

3D 


DCR 

A 

5 COUNT = COUNT - 1. 

FAC4 

D3E1 


OUT 

WCT 0 

5 SEND IT TO DMA CHIP. 

FAC6 

7A 


MOV 

A» D 

", GET READ/WRITE CODE. 

FAC7 

D3E1 


OUT 

WCTO 

5 AND TELL DMA CHIP WHAT TO DO 

FAC9 

7D 


MOV 

A» L 

5 GET LOW ADDRESS BYTE 

FACA 

D3E0 


OUT 

ADRO 

?AND SEND IT TO DMA CHIP. 

FACC 

7C 


MOV 

A»H 

? GET HIGH ADDRESS BYTE 

FACD 

D3E0 


OUT 

ADRO 

5 AND SEND IT TO DMA CHIP. 

FACF 

3E41 


MV I 

A» 41H 

5 SET UP FOR REQUEST CM. 0 

FAD1 

D3E8 


OUT 

CMND 

? SEND IT TO CONTROLLER. 

FADS 

CD7EFC: 


CALL 

HOLD 

5 CHECK HEAD LOAD BI T. 

FAD6 

BO 


ORA 

B 

? "OR"' IN THE READ/WRITE BITS. 

FAD7 

D3F8 

m 

OUT 

DCOM 

5 TELL FLOPPY CHIP WHAT TO DO. 



7 

? ADJUST 

n 

H> L 1 

FOR 128 BYTE 

INCREASE. 

FAD 9 

D5 

* 

PUSH 

D 

5 SAVE D,E 

FADA 

7A 


MOV 

A 7 D 

5 GET DMA COMMAND BYTE 

FADE 

E63F 


AN I 

3FH 

;STRIP OFF COMMAND BITS 7 S< 6 

FADD 

57 


MOV 

D, A 

KNOW SET FOR H» L ADJUST. 

FADE 

19 


DAD 

D 

5 ADD IT TO H,L. 

FADF 

D1 


POP 

D 

5 RESTORE D,E 



GENERAL PURPOSE WAIT ROUTINE 


7 


FAEO 

3E20 


MVI 

A, 20H 

?COUNT VALUE. 

FAE2 

3D 

CNTLOOPs OCR 

A 


FAE3 

C2E2FA 


JNZ 

CNTLOOP 

? LOOP TILL = ZERO. 

FAE6 

DBFD 

SLOOP: 

IN 

DMACHK 

?CHECK FOR OPERATION DONE. 

FAE8 

07 


RLC 


? BY LOOKING AT BIT 7. 

FAE9 

DAE6FA 


JC 

SLOOP 

? LOOP TILL BIT 7 = 0. 

FAEC 

DBFS 


IN 

DSTAT 

?CHECK AND RETURN DISK STATUS 

FAEE 

09 


RET 


?RETURN TO CALLER. 



II 

END IF 




7 

? Warm- 

boot - 

Read the CCP back 

into memory. BDOS and BIOS 



.assumed still in memory. If they are not? a cold start will 



5 have 
« 

to be done to brins them 

back into memory. 

FAEF 

318000 

7 

WBOOT 5 

LXI 

8FS80H 

? SET STACK POINTER. 



? 

IF INTRP AND NOT DMACNTL?IF INTERRUPTS ALLOWED, 




El 


?ALLOW THEM HERE. 



m 

END IF 




7 

IF 

LSTF'AG 

?IF LIST DEVICE PAGING, 




XRA 

A 

?RESET LINE-FEED COUNT. 




STA 

LFCN'f 




M 

END IF 


FAF2 

OEOO 

7 

MVI 

C, 0 

?SELECT DISK 0. 

FAF4 

CD67FB 


CALL 

SELDSK 


FAF7 

CDF4FB 


CALL 

HOME 

? MOVE TO TRACK ZERO. 

FAFA 

210000 


LXI 

H, 0 

? c1 ear h,1 

FAFD 

222FFD 


SHLD 

DRVFLG 

?clear drive flass 

FBOO 

2231FD 


SHLD 

DRVFLG +-2 


FB03 

0611 


MVI 

B , NSECTS 

?GET # SECTORS FOR CPM READ. 

FB05 

0E02 

m 

MVI 

C, 2 

? TRACK (B) =0 , SECTOR (0=2. 



7 

IF INTRP AND NOT DMACNTL?IF INTERRUPTS ALLOWED, 




DI 


?DISABLE THEM HERE. 



« 

END IF 


FB07 

2100E4 

7 

LXI 

H , CPMB 

?GET STARTING ADDRESS. 

FBOA 

2225FD 

RBLK1: 

SHLD 

DMAADD 

? SET STARTING ADDRESS. 

FBOD 

CD68FC 


CALL 

SETSEC 

?READ STARTING AT SECTOR IN C 

FBIO 

C5 


PUSH 

B 


FBI 1 

CD9DFC 


CALL 

READ 

? READ A SECTOR BACK. 

FBI 4 

Cl 


POP 

B 


FBI 5 

C23EFB 


JNZ 

RDERR 

?IF ERROR , PRINT MESSAGE . 

FB18 

OC 


INR 

C 

?INCREMENT SECTOR NUMBER. 

FBI 9 

05 


DCR 

B 

?DECREMENT SECTOR COUNT. 

FB1A 

C20AFB 


JNZ 

RBLK1 

?NOT ZERO, KEEP READING 


IF INTRP AND NOT DMACNTL?IF INTERRUPTS ALLOWED, 
El ;ALLOW THEN AGAIN HERE. 

END IF 

* 

7 

? SET UP JUMPS INTO CP/M IN LOWER MEMORY. 


FB1D 

3EC3 

GOCPM: MVI 

A,0C3H 

? PUT 

JMP TO WBOOT 

FB1F 

320000 

STA 

0 

? ADR 

AT ZERO. 


2103FA 

LXI 

H,WBOOTE 

?WARMBOOT ENTRY POINT 

FB23 

220100 

SHLD 

1 

? SET 

I r. 

FB28 

320500 

STA 

5 

? SET 

JUMP INSTRUCTION 

FB2B 

2106EC 

LXI 

H,BDOS 

? PUT 

JUMP TO BDOS 

FB2E 

220600 

SHLD 

6 

?AT ADR 5,6,7. 

FB31 

218000 

LXI 

H, SOH 

?SET 

DEFAULT DMA ADR. 



FB34 

2225FD 


SHLD DMAADD 

5 SAVE IT. 

FB37 

3A0400 


LDA COISK 

? GET DISK NUMBER TO 

FB3A 

4F 


MOV C,A 

5 PASS TO CCP IN C. 

FB3B 

C300E4 

m 

•JMP CF'MB 

5 JUMP TO CCP. 

FB3E 

CDB7rC 

RDERR: 

CALL RECOV 

?We have an error in bootin 

FB41 

C3EFFA 

It 

.JMP WBOOT 

»DO A WARM BOOT. 



7 

5 CHECK 

CONSOLE INPUT STATUS. 


FB44 

CD4CFB 

5 

CONST: 

CALL STATCON 

5 CHECK CONSOLE ST ATUS PORT. 

FB47 

3E00 

CONSTis 

MVI A,0 

5 SET A-0 FOR RETURN. 



7 

IF RDYLO 

?IF STATUS READY LOW, 




RNZ 

"NOT READY WHEN NOT 0. 



a 

END IF 




7 

IF RDYHI 

?IF STATUS READY HIGH, 

FB49 

C8 

a 

RZ 

END IF 

5 NOT READY WHEN ZERO. 

FB4A 

2F 

7 

CMA 

5 IP READY A=FF. 

FB4B 

C9 


RET 

?RETURN FROM CONST. 




? STATCON - CHECK KEYBOARD 

STATUS 



7 

IF NOT SOLOS 


F84C 

DBOO 

STATCON 

:IN CSTAT 

?IN STATUS PORT 

FB4E 

E601 


AN! CKBR 

5 MASK READY BIT. 

FB50 

C9 

II 

RET 

END IF 




7 

5 READ 
« 

A CHARACTER FROM CONSOLE. 



7 

CONIN: 

IF NOT SOLOS 

5 IF NOT PROC TECH SOLOS, 

FS51 

CD4CFB 

a 

CALL STATCON 

END IF 

5 READ CONSOLE STATUS. 



7 

IF SOLOS 

5 IF PROC TECH SOLOS, 




CALL KBD 

? READ SOL KEYBOARD. 




JZ CONIN 

5 READY WHEN NOT ZERO. 



a 

END IF 




7 

IF RDYLO AND NOT 

SOLOS 




JNZ CONIN 

5 LOOP UNTIL LOW. 




END IF 




7 

IF RDYHI 

?IF READY WHEN HIGH, 

FB54 

CA51FB 

a 

JZ CONIN 

END IF 

? LOOP UNTIL HIGH. 



7 

IF NOT SOLOS 

5 IF NOT PROC TECH SOLOS, 

FB57 

DB01 

a 

IN CDATA 

END IF 

5 READ A CHARACTER. 

FB59 

E67F 

7 

ANI 7FH 

;MAKE MOST SIG. BIT = 0. 

FB5B 

C9 


RET 

5 RETURN FROM CONIN. 


? WRITE A CHARACTER TO THE CONSOLE DEVICE. 

m 

7 

CONOTs 


IF 

CONUL 

5 IF NULLS REQUIRED, 

MV I 

A, OAH 

5 IF IT'S A LF, 

CMP 

C 

“THEN HOP OUT 

JZ 

CONULL 

5 TO NULL ROUTINE. 


END IF 

CONOTi: 





IF NOT SOLOS 

AND NOT VIDEO 

FB5C 

DBOO 


IN CSTAF 

5 READ CONSOLE STATUS. 

FB5E 

E602 

M 

AN I CF’TR 

END IF 

?IP NOT READY, 



J 

IF RDYLO AND 

NOT SOLOS AND NOT VIDEO 




JNZ CONOTi 

5 LOOP UNTIL LOW. 




END IF 




7 

IF RDYHI 

5 IF READY WHEN HIGH, 

FB60 

CA5CFB 


JZ CONOTi 

LNDir 

5 LOOP UNTIL HIGH. 



7 

IF NOT SOLOS 

AND NOT VIDEO 

FB63 

79 


MOV A,C 

5 GET CHARACTER. 

FB64 

D301 


OUT CDATA 

SPRINT IT. 

FB66 

C9 

M 

RET 

END IF 

5 RETURN. 



7 

;thi 

S ROUTINE CALLES 

YOUR VIDEO DRIVER ROUTINE WHICH MUST 



; BE 

IN ROM. ALL REGIS 

:TERS MUST BE SAVED AND RESTORED BY YOUR 


5 VIDEO DRIVER IN ORDER TO BE COMPATIABLE WITH CRM. CPM PASSES 
5 THE CHAR. TO BE OUTPUT IN THE C REGISTER. MAKE ANY CHANGES 
5IN THIS ROUTINE TO PASS THE CHAR FROM REG C TO THE REGISTER 
5 YOUR VIDEO DRIVER EXPECTS IT TO BE IN. 


7 





IF VIDEO 

5 IF USING A VIDEO DRIVER II 




MOV 

A, C 

5 GET THE CPM CHAR INTO REG 




CALL 

OUTADDR 

5 CALL YOUR VIDEO DRIVER. 




RET 


5 RETURN TO CPM. 




END IF 




7 

IF CONUL 




CONULL: 

PUSH 

B 

5 SAVE B&C. 




MV I 

B,CNULL+1 

5 GET NULL COUNT. 



C0NUL1: 

CALL 

CONOTi 

SPRINT CR. 




MV I 

C, 0 

5 GET NULL CHAR. 




DCR 

B 

5 DECREMENT COUNTER. 




JNZ 

CONUL1 

5DO NEXT NULL. 




POP 

B 

5 RESTORE B&C. 




MOV 

A, C 

5RES TURL A. 




RET 


5 RETURN. 



St 

END IF 




7 

IF 

SOLOS 

5 IF PROC TECH SOLOS, 




PUSH 

B 

5 SAVE B&C. 




MOV 

B, C 

SPLIT CHAR IN B REG. 




CALL 

SCRN 

5 OUTPUT CHAR TO SOLOS. 




POP 

B 

5 RESTORE B&C. 




MOV 

A, C 

5PUT CHAR IN A. 




RET 


SRETURN FROM CONOT. 



at 

END IF 




7 

S SELEC'I 

* 

r DISH 

C NUMBER ACCORDING 

TO REGISTER C. 

FB67 

210000 

SELDSK: 

LX 1 

H, 0 

5 SET UP FOR ERROR CODE 

FB6A 

79 


MOV 

A, C 

5GET NEW DRIVE. 

FB6B 

FE04 


CPI 

NDISK 

5 CALLING UNDEFINED DRIVE ? 

FB6D 

DO 


RNC 


5 IF MO CY, H, L TELLS CPM Yl 

FB6E 

2127FD 


LX I 

H,DISKNO 

5 GET OLD DRIVE NUMBER. 

FB71 

7E 

m 

MOV 

A, M 

5 GET OLD DISK NUMBER. 



7 

IF 

DUAL 

SIF DUAL DRIVE, 




AN I 

OFEI1 

5 CLEAR OUT BIT 0. 



END IF 


FB72 

5F 

n 

7 

MOV 

E, a 

5 PUT OLD DISK NO. IN D&E. 

€ 

FB73 

1600 


MV1 

D, 0 



FB75 

212BFD 


LX I 

H,TRTAB 

5 GET ADDRESS OF TRACK TABLE 

- € 

FB78 

E5 


PUSH 

H 

5SAVE ADDRESS OF TRTAB. 


FB79 

19 


DAD 

D 

? ADD DISK NO. TO ADDRESS. 


FB7A 

DBF9 


IN 

TRACK 

j READ 1771 TRACK REGIS TER. 

f 

FB7C 

77 


MOV 

M, A 

5 PUT INTO TABLE. 


FB7D 

79 


MOV 

A i L 

?GET NEW DISK NUMBER. 

M: 



7 

IF 

DUAL 

5 IF A DUAL DRIVE, 

I 




ANI 

OFEH 

5 CLEAR BIT 0. 





END IF 


€ 

FB7E 

5F 

7 

MOV 

E,A 

5 PUT NEW DISK NO. IN D?<E. 


FB7F 

El 


POP 

H 

; RESTORE ADDRESS OF TR TAB. 

€ 

FB80 

19 


DAD 

D 

5 ADD DISK NO. TO ADDRESS. 


FB81 

7E 


MOV 

A> M 

5 GET NEW TRACK NUMBER. 


FB82 

D3F9 


OUT 

TRACK 

SPLIT INTO 1771 TRACK REG. 

€ 

FB84 

79 


MOV 

A,C 

5 UPDATE OLD DISK NUMBER. 


FB85 

3227FD 


87 A 

DISKNO 



rnon 

1 wOO 

87 


ADD 

A 

5 PUT BITS 1 §<2 AT 4&3. 

t 

FB89 

87 


ADD 

A 



F68A 

87 


ADD 

A 



FB8D 

87 


ADD 

A 


€ 

FB8C 

3236FD 


STA 

LATCH 

5 SAVE NEW LATCH CODE. 


FB8F 

212FFD 

DENSITY:LX I 

H , DRVFLG 

5POINT TO DRIVE DEN. FLAG 


FB92 

0600 


MVI 

B, 0 

5 CLEAR REG B. 

t 

FB94 

09 


DAD 

B 

5 INDEX INTO DRIVE FLAG LOC. 


FB95 

7E 


MOV 

A,M 

? GET THE FLAG BYTE 


FB96 

B7 


ORA 

A 

5 LOGGED IN? 

• 

FB97 

FACOFB 


JM 

LOGED 

5 YES, IT'S LOGGED. 


FB9A 

E5 


PUSH 

H 

? NO, SAVE FLAG ADDRESS. 


FB9B 

3A36FD 


LDA 

LATCH 

;GET LATCH CODE 

• 

FB9E 

D3FC 


OUT 

DCONT 

5CHANGE LATCH OR DENSITY 




7 

? RL'ALi 
« 

TRACK < 

) SECTOR 1 FOR 

DENSITY BYTE AT 7E HEX. 

f 

FBAO 

3E01 

7 

MVI 

A, 1 

?SECTOR 1. 


FBA2 

3224FD 


STA 

SECT 

5 SAVE THE SECTOR VALUE. 

1 

FBA5 

CDF4FB 


CALL 

HOME 

5 HOME THE DRIVE. 


FBA8 

2A2SFD 


LHLD 

DMAADD 

5 GET CP/M DMA ADDRESS VALUE 


FBAB 

E5 


PUSH 

H 

5 SAVE IT ON THE STACK. 

< 

FBAC 

2194FE 


LX I 

H,OBUFF 

5 POINT TO THE DMA BUFFER. 


FBAF 

2225FD 

N 

SHLD 

DMAADD 

5 SET UP HEAD DMA ADDRESS. 




7 

? READ 

ii 

THE DATA USING READ 

ROUTINE. 

f 

FBB2 

CD9DFC 

7 

CALL 

READ 

5CB10S READ ROUTINE. 

t 



7 

? GET i 

DENSITY 

BYTE VALUE AND DETERMINE DRIVE STATUS. 




II 

* 




i 

FBB5 

El 


POP 

H 

5 RESTORE DMA ADDRESS FROM THE $ 

FBB6 

2223FD 


SHLD 

DMAADD 

5 AND RESTORE THE CP/M DMA i 

ADDF 

FBB9 

El 


POP 

H 

? RESTORE DENSITY FLAG ADORE 

SS M 

FBBA 

3A12FF 


LDA 

DBUFF+7EH 

? INDEX INTO DSUFF TO LOCATION 1 

FBBD 

F 680 


OR I 

80 H 

5 set Tossed in bit 


FBBF 

77 


MOV 

M, A 

5pI ace it in flag table. 

i 

FBCO 

011200 

LOGED 

: LX I 

B, 18 

5 index value through dr ive 

tab 

FBC3 

E612 


ANI 

12H 

5 MASK DENSITY AND SIDE BITS 

OU" 

FBCS 

B7 


ORA 

A 

? SINGLE DENSITY? 

i 

FBC6 

2173FA 


LX I 

I I, SDTAB 

5 point to start of tables 


FBC9 

CACDFB 

m 

JZ 

DENSIT1 

? ve s, o veil av par am. b1o e k 

A 



* 

II 

DUBSID 


1 







DAD 

B 

5 no 7 add offset to next table 

i 




CPI 

«•£* 

Ssingle den doub sided? 4 





JZ 

DENS1T1 

? ve s 





DAD 

B 

5 no 

t 




CPI 

10H 

?doub den single sided? M 





JZ 

DENSIT1 

5 ve s 

jMi,. 



M 

END IF 



€ 

FBCC 

09 

7 

DAD 

B 

m 

5no» must be doub den 7 doub si 


FBCD 

EB 

DENSIT 1 

s XCHG 


Sdrive table pointer- —> d?e 

€ 

FBCE 

1A 


LDAX 

D 

? set lo& and drive type byte. £ 


FBCF 

13 


1NX 

D 

; bump pointer 


FBDO 

3.»«c»8FD 


STA 

DENS 

5 se t current drive density. 

£ 

FBD3 

D5 


PUSH 

D 

; save drive table pointer. £ 


FBD4 

CDE7FB 


CALL 

PARINDX 

5 compute parameter overlay area 


FBD7 

D1 


POP 

D 

;restore drive table pointer. 

£. 

FBD 8 

010802 


LX I 

B.0208H 

?B = 2? C = 8 (count values). £ 


FBDB 

1A 

MOVES 

LDAX 

D 

; GET XLTO BYTE. 


FBDC 

77 


MOV 

M, A 

SAND PUT IT INTO DW TABLE FOR L 

i 

FBDB 

13 


INX 

D 

5 BUMP £ 


FBDE 

23 


I NX 

H 

S POINTERS 


FBDF 

05 


DCR 

B 

5 DECREASE COUNT. 

t 

FBEO 

C2DBFB 


JNZ 

MOVE 

5 AND LOOP TILL ZERO. £ 


FBE3 

09 


DAD 

B 

SNOW ADO INDEX INTO DPBO AREA. 


FBE4 

73 


MOV 

M,E 

5 GET LOW POINTER BYTE. 

C 

FBE5 



INX 

H 

5 BUMP POINTER. { 


FBE 6 

72 

It 

MOV 

M,D 

5 GET HIGH POINTER BYTE. 

t 



7 

5 SELECT 

m 

DRIVE AS A FUNCTION OF 

H, L £ 


FBE7 

2A27FD 

7 

PARINDX 

SLHLD 

DISKNO 

5 LOAD DISK NUMBER AND ZERO BYTE 

l 

FBEA 

1133FA 


LX I 

D 7 DEBASE 

5 POINT TO DISK FARM START. £ 


FEED 

29 


DAD 

1! 

S *2 


FBEE 

29 


DAD 

H 

5 *4 

€ 

FBEF 

29 


DAD 

H 

S #8 m 


FBFO 

29 


DAD 

H 

5 *16 


FBF 1 

19 


DAD 

D 

5 COMPUTE INDEX FOR THE DRIVE 

€ 

FBF2 

AF 


XRA 

A 

5 SET A = 0. £ 


FBF3 

C9 

m 

RET 


5 RETURN FROM SELDSK. 

€ 



7 

5 MOVE 

DISK TO TRACK ZERO. 

1 


FBF4 

OEOO 

? 

HOMES 

MV I 

C ,0 

S SEEK TO TRACK ZERO. 

| 

FBF 6 

3E01 


MV I 

A,STPRAT 

5 RESTORE COMMAND £ 


FBF 8 

D3F8 

ft 

OUT 

DCOM 

5 TELL CONTROLLER. 

€ 



5 SET TRAC K NUMBER to whatever 

IS IN REGISTER C. £ 




s ALSO 

M 

PERFORM MOVE TO THE CORRECT TRACK (SEEK). 

£ 



7 

SETTRKs 



€ 


FBI* A 

2A36FD 


LHLD 

LA TCI! 

5 set new and old latch. 


FSFD 

7 C 


MOV 

A 7 H 

5 get latch value. 

f: 

FBFE 

E6B7 


AN1 

0B7H 

sstrip density and side bits.£ 


FCOO 

67 

II 

MOV 

H, A 

5 restore it. 

t 



7 

IF 

DUBSID 

Sif using double sided drive. £ 





LDA 

DENS 

5 check if double sided. 





RRC 



i 




RRC 


5 look at bit 1 . £ 





JNC 

NOTSID 

S if bit 1 = O 7 it's single sidt 





MOV 

A 7 L* 

sit's doub sided? so get track 

i 




RRC 


Sdivide by 2 . £ 





MOV 

B? A 

5 save it in res b. 





MOV 

A?L 

5 get old latch value. 

t 




JC 

SIDE2 

5 change side if odd track. £ 





AN I 

OBFH 

Sclear side bit from latch. 






JMF' 

SGTLAT 

•J so set the latch- 



It 

? 



c 



SIDE2: 

OR I 

40H 

? turn on side select bit. 



GETLAT: 

STA 

CLATCH 

isave it For later. 




AN I 

OBFR 

;clear side bit. £ 




CALL 

OLDLAT 

5 check for drive change. 




MOV 

A,B 

; restore doub sided trk number. 




AN I 

7FH 

? clear bit 7. £ 




MOV 

C» A 

; trk number now in res c. 




JMF' 

TRKSET 

5 check for density of track soi 



* 

END IF 

€ 



7 

IF 

NOT DUBSID 

; if not usins double sided driv 

FCOl 

C30FFC 


JMF' 

NOTSID 

; j ump around subroutine. ^ 




END IF 


FC04 

BC 

7 

OLDLAT! 

CMP 

H 

? new — old? 

FC05 

3EFF 


MV I 

A j OFFH 

? i f not? set •= ff 

FC07 

C20BFC 


JNZ 

SFLAG 


FCOA 

2F 


CMA 


5 new - old? set = 0. £ 

FCOB 

3229FD 

SFLAGs 

STA 

HLSF 

; save head load select f'las. 

FCOE 

C9 

It 

RET 



FCOF 

7D 

7 

NQTSID: 

MOV 

A 7 L 

€ 

5 set latch value- 

FCIO 

3237FD 


GTA 

CLATCH 

5 save it 

FC13 

CD04FC 


UALL 

OLDLAT 

?check for drive change. £ 

FC16 

3A33FD 

TRKSET: 

LDA 

DENS 

5 CHECK DRIVE DENSITY FLAG. 

FC19 

OF 


RRC 


5 is Ear o » o? 

FC 1A 

D22BFC 


JNC 

TRKSD 

5 YES, WE ARE SINGLE DENSITY. ( 

FC 1D 

79 


MOV 

A 7 L* 

5 NO? RESTORE TRACK NUMBER. 

F C1E 

FEO1 


CPI 

1 

5 IS IT TRACK 1? 

FC20 

DA2BFC 


JC 

TRKSD 

5 IF LESS THAN? SET SINGLE DEN* 

FC23 

3A37FD 


LDA 

CLATCH 

5 GET CURRENT LATCH VALUE. 

FC26 

F608 


OR I 

8 

5 SET FOR DOUBLE DENSITY. 

FC28 

C330FC 

II 

JMF' 

TRKDD 

• 

FC2B 

3A37FD 

? 

TRKSD: 

LDA 

CLATCH 

5 GET CURRENT LAT CH VALUE. 

FC2E 

E6F7 


AN I 

0F7H 

? TURN OFF BI r 4 (SINGLE DENS I 

FC30 

3237FD 

TRKDD: 

STA 

CLATCH 

!SAVE NEW LATCH VALUE. 

FC33 

D3FC 


OUT 

DCONT 

?SELECT DISK AND MAKE DENSITY C 

FC35 

79 


MOV 

A 7 C 

? RESTORE TRACK VALUE § 

FC36 

3223FD 


STA 

TRK 

5 UPDATE OLD WITH NEW. 



7 

5 MOVE 

n 

THE HEAD TO TFIE TRACK IN 

REGISTER A. ( 

FC39 

C5 

? 

SEEKS 

PUSH 

B 

? SAVE B&C. 

FC3A 

47 


MOV 

B, A 

■SAVE DESTINATION TRACK. f 

FC3B 

3E0A 


MV I 

A? RTCNT 

? GET RET RY COUNT. 

FC3D 

323SFD 

SRETRYs 

STA 

SERCNT 

5 STORE IN ERROR COUNTER. 

FC40 

DBI-9 


IN 

TRACK 

5 READ PRESENT TRACK NO. f 

FC42 

B 8 


CMP 

B 

5 SAME AS NEW TRACK NO. ? 

FC43 

C248FC 


JNZ 

NOT HR 

? JUMP IF NOT THERE. 

FC46 

Cl 

THEREs 

POP 

B 

5 RES TORE B&C. f 

FC47 

C9 


RET 


5 RETURN FROM SEEK. 

FC48 

78 

won IRs 

MOV 

A, B 

5 RESTORE A FROM B. 

FC49 

D3FB 


OUT 

DDATA 

5 TRACK TO DATA REGISTER. £ 

FC4B 

3E1D 


MV I 

A , 14H +STPRAT+HLAB 

?GET STEP RATE? 00 

FC4D 

D3F8 

* 

OUT 

DCOM 

5 SEEK WITH VERIFY. 

m 




IF NOT DMACNTL 

f 




IN 

WAIT 

5 WAIT FOR INTRQ. 




IN 

DSTAT 

5READ STATUS. m 



II 

END IF 





IF DMACNTL 

£ 

FC4F 

CDE 6 FA 


CALL 

SLOOP 

5 NO WAI T STATUS CHECK. 





END IF 


FC52 

E691 

II 

7 

AN I 

91H 

5 LOOK AT BITS. 

FC54 

CA46FC 


J L THERE 

iOK IF ZERO. 

FC57 

3A35FD 


LDA 

SERCNT 

? GET ERROR COUNT. 

FC5A 

3D 


DCR 

A 

?DECREMENT COUNT. 

FC5B 

C23DFC 


JNZ 

SRETRY 

?RETRY SEEK. 

FCSE 

Cl 


POP 

B 

?RESTORE B&C. 

FC5F 



PUSH 

B 

? SAVE 

FC60 

CDB7FC 


CALL 

RECOV 

?IF SEEK RETRY = 10 CHECK 

FC63 

Cl 


POP 

B 


FC64 

79 


MOV 

A* C 

?RECOVER TRACK NUMBER. 

F C 6 S 

C339FC 

m 

JMP 

SEEK 

? FOR CNTL-C FOR ABORT. 



7 

5 SET D3 

:SK SECTOR NUMBER. 


FC 68 

79 

5 

SETSECs 

MOV 

A 7 L* 

? GET SECTOR NUMBER. 

FC69 

3224FD 


STA 

X* 

? PUT AT SECT # ADDRESS. 

FC 6 C 

C9 

m 

RET 


?RETURN FROM SETSEC. 



7 

?TRANSLATE THE SECTOR GIVEN B 

iC USING 



5 THE TRANSLATE TABLE?GIVEN BY 

D, £ 



7 

SECTRANs 




FC 6 D 

69 


MOV 

L» L 

5 GET PHYSICAL SECTOR NUMBER 

FC 6 E 

2C 


INF< 

L 

5 BUMP IT BY ONE. 

FC 6 F 

7A 


MOV 

A 7 D 

* ARE WE USING NO XLAT TABLE 

FC70 

B3 


ORA 

E 

?IT WILL BE ZERO IF NOT. 

FC71 

C 8 


RZ 


?RETURN IF IT IS ZERO. 

FC72 

EB 


XCHG 


? HiL = TRANS 

FC73 

09 


DAD 

B 

? I I 7 L = TRANS (SECTOR) 

FC74 

6 E 


MOV 

Li M 

? L = TRANS (SECTOR) 

F‘C75 

2600 


MV I 

Hi 0 

?CLEAR REG H 

FC77 

C9 

II 

RET 


? HiL = TRANSLATED SECTOR 



7 

? SET DISK DMA ADDRESS. 

M 


PC? 8 

60 

7 

SETDMAs 

MOV 

Hi B 

? MOVE B&C 10 H&L. 

FC79 

69 


MOV 

L 7 L* 


FC7A 



SHLD 

DMAADD 

? PUT Ai DMA ADR ADDRESS. 

FC7D 

C9 

It 

RET 


?RETURN FROM SETDMA. 



7 

? HOLD - 

m 

- GET 

HEAD-LOAD BIT IF 

REQUIRED. 

FC7E 

3A29FD 

7 

HOLD? 

LDA 

HLSF 

? GET HEAD-LOAD FLAG. 

FC81 

B7 


ORA 

A 

?IS A = ZERO? 

FC82 

CA94FC 


J 2 

HDLD1 

5 HOT' IF SO. 

FC85 

2F 


CM A 


? SET A = 0. 

FC 86 

3229FD 

» 

STA 

HLSF 

? SET FLAG — 0 IF NOT. 



7 

?IF CHANGING 

TO A NEW DRIVEi 1 

PERFORM A SEEK TO 



? fl IE SAME TRACK TO UNLOAD THE 

n 

HEAD ON NEW DRIVE. 

FC89 

DBF9 

7 

IN 

TRACK 

5 GET PRESENT TRACK 

FC 88 

D3FB 


our 

DD AT A 

? TELL CONTROLLER. 

FC 8 D 

3E15 


MV I 

A,14H+STPRAT 


FC 8 F 

D3F*8 

M 

OUT 

DCOM 




7 

IF 

NOT DMACNTL 





IN 

WAIT 

iWAIT FOR INTRQ. 



at 

END IF 




7 

IF 

DMACNTL 


FC91 

CDE 6 FA 


CALL 

SLOOP 

5 CHECK DMA STA TUS PORT. 




END IF 




FC94 

DBFS 

HOL'D I* 

IN 

DSTAT 

3 READ 1771 STAT US. 


FC96 

E620 


AMI 

20H 

5 LOOK AT HL BIT. 

• 

FC93 

3E04 


MV I 

A,4 



FC9A 

C8 


RZ 


5 RETURN IF HEAD IS NOT LOADED 

M 

FC9B 

97 


SUB 

A 

5 HEAD IS ALREADY LOADED. 

C 

FC9C 

C9 


RET 


3 RETURN F ROM HOLD. 



7 

3 READ 

THE SI 

ECTOR AT SECT, FROM 

1 THE PRESENT TRACK, 

€ 



? UoL y 

TARTINO ADDRESS AT DMAADO. 


FC9D 

3E0A 

V 

READS 

MV I 

A, RTCNT 

5 GET RETRY COUNT. 

t 



RRETRY s 








IF DMACNTL 



FC9F 

01D0S0 


LX I 

B, OODOH 

3 FLOPPY READ, FORCE INTERRUPT# 

FCA2 

118040 


LX I 

0, 4000H 

3 DMA READ, DMA COUNT BYTE 


FCA5 

GOBIFA 


CALL 

DMARW 

5 ENTER COMMON READ/WRITE ROUTIN 



N 

END IF 


t 



7 

IF NOT DMACNTL 






MV I 

B, SOM 

3 FLOPPY READ COMMAND BYTE. 

€ 




CALL 

DSKSET 

5 SET UP DISK CONTROLLER. 





ORA 

B 

3 -'OR-' IN THE READ COMMAND. 




READEs 

cm r 

DCOM 

3 SEND COMMAND TO 1771. 

C 



RL OOP's 

IN 

WAIT 

3 WAIT FOR DRQ OR INTRO. 





ORA 

A 

5 SET FLAGS. 





UP 

RDDONE 

5 DONE IF INTRO. 

f 




IN 

DDATA 

5 READ A DATA BYT E FROM DISK. 





MOV 

M, A 

5 PUT BYT E INTO MEMORY. 





INX 

H 

3 INCREMENT MEMORY POINTER. 

t 




JMP 

RLOOP 

3 KEEP READING. 




RDDONEs 

IN 

DSTAT 

5READ DISK STATUS. 




« 

END IF 


• 



7 

IF INTRP AND NOT DMACNTL5 IF INTERRUPTS ALLOWED, 





El 


3ALLOW AGAIN HERE. 

• 



m 

END IF 



FCA8 

E69D 

7 

AN1 

9DH 

3 LOOK AT ERROR BIT S. 

« 

FCAA 

Co 


RZ 


3 RE TURN IF NONE. 


FCAB 

CDC5FC 


CALL 

ERCHK 

3 CHECK FOR SEEK ERROR. 


FCAE 

C29FFC 


JNZ 

RREIRY 

3 TRY TO READ AGAIN. 

i 

FCB1 

CDB7FC 


CALL 

RCCOV 

3 CHECK FOR ABORT OR CONTINUE 


FCB4 

C39DFC 


JMP 

READ 

5 IF NOT CNTL-C, TRY TO READ AGA 



5 

;rccov 




m 



5 THIS ROUTINE IS CALLED BY ANY 

READ,WRITE,SEEK ROUTINE IF THE 

f 



5 COUNT 

GOES 

TO 10. IF XT DOES,THIS ROUTINE CALLS CONIN FOR A 

m 



5 BE PUS 

TIED. 

IF THE KEY IS A CNTL-C, THEN A WARMBOOT IS EXECUTE! 



5 ANY OTHER KEY IS PUSHED, THEN 

A RETURN IS MADE BACK TO THE CAL 



5AND THAT ROUTINE IS RETRIED FOR 10 MORE TIMES. 

i 



7 

RECOVs 





FCB7 

OF 65 


MV I 

C» *“€•*“ 

3 ERROR CODE 

i 

FCB9 

CD5CFB 


CALL 

conot 

SPRINT IT 


FCBC 

CD51FB 


CALL 

CON IN 

3 CHECK FOR PUSHED KLY. 


FCBF 

FE03 


CPI 

OSH 

SIS IT A CNTL-C ? 

i 

FCC1 

CO 


RNZ 


3 RETURN TO CALLER IF NOT. 


FCC2 

C3EFFA 

m 

JMP 

wboo r 

5 YES, DO WARMBOOT. 




7 

3 LRCHK 

: - CHECK FOR RECORD NOT 

FOUND ERROR. 

« 

FCC5 

L610 

7 

ERCIIKs 

AN I 

10H 

5 IF RECORD NOT FOUND, 

f 

FCC7 

C2CFFC 


JNZ 

CHKSK 

5 DO A CHECK ON SEEK. 


FCCA 

3A34FD 

CHKOKs 

LDA 

ERCNT 

3 GET RETRYS ALLOWED 


FCCO 

3D 


OCR 

A 

5 DECREASE IT, 

t 

FCCE 

C9 


RET 


SAND RETURN WITH NUMBER. 





i 

f 

€ 

f 

€ 

C 

€ 

f 

€ 

f 

f 

t 

f 

i 

f 

< 

€ 

€ 

€ 

tt 

tt 

€ 


;CHECK FOR SEEK TO CORRECT TRACK, 
? AND CHANGE IF NECESSARY. 





IF NOT DMACNTL 


t 



CHKSK: 

MVI A,0C4H 

! SEND COMMAND TO 1771 





OUT DCOM 

; TO READ ADDRESS. 





IN WAIT 

5 WAIT FOR DRQ OR INTRO. 

€ 




IN DDAT A 

j READ THE TRACK ADDRESS 





PUSH PSW 

5 SAVE IT ON THE STACK. 




CHKS2s 

IN DMACHK 

“WAIT FOR INTRO. 

€ 




ORA A 

5 SET FLAGS. 





UP CHKS3 

5 DONE WITH READ ADR OP. 





IN DDAT A 

5 READ ANOTHER BYTE. 

€ 




JMP CHKS2 

5 DO IT AGAIN. 




CHKS3s 

IN DSTAT 

5 READ DISK STATUS. 




n 

END IF 


C 



7 

IF DMACNTL 



FCCF 

21F9F9 

CHKSK! 

LXI H,BIOS-/ 

5 POINT TO UNUSED SPACE 

tt 

FCD2 

01D0C4 


LX I B,0C4D0H 

? READ ADDRESS, FORCE INTERRUPT i 

FCD5 

110640 


LX I D,04006H 

5 DMA READ, COUNT BYTE 


FCD8 

CDBCFA 


CALL DMARWE 

? READ THE ID USING DMA 

CUNTROig 

FCD6 

B7 


ORA A 

5 SET FLAGS. 


FCDC 

CAE5FC 


JZ CHKS4 

5READ ADR OK IF 0. 


FCDF 

CDF4FB 


CALL HOME 

5 OTHERWISE, HOME FIRST. 

f 

FCE2 

C3E9FC 


JMP CHKS5 






END IF 





? 

IF NOT DMACNTL 


i 



CMKS4S 

POP PSW 

?UPDATE TRACK REGISTER. 




tt 

END IF 


€ 



7 

IF DMACNTL 



FCE5 

DBF A 

CHKS4: 

IN SECTP 

5 GET THE TRACK BYTE 

C 




END IF 


FCE7 

D3F9 

5 

OUT T RACK 


€ 

FCE9 

3A23FD 

CHKS5: 

LDA TRK 

? GET REQUIRED TRACK NO. 


FCEC 

CD39FC 


CALL SEEK 

5 MOVE THE HEAD TO IT. 


FCEF 

C3CAFC 


JMP CHKOK 

5 EX IT FROM ERROR CHECK. 

€ 



? 

IF NOT DMACNTL 





DSKSET5 

STA ERCNT 

5 STORE IN ERROR CTR. 

f 




MVI A,ODOH 

;CAUSE INTERRUPT. 





OUT DCOM 






XTHL 

5 SOME 

€ 




XTHL 

; DELAY 




«t 

END IF 


m 



7 

IF INT RP AND NOT 

DMACNTL?IF INTERRUPTS ALLOWED, 

tt 




DI 

;DISABLE THEM HERE. 




n 

END IF 


€ 



7 

IF NOT DMACNTL 






LHLD DMAADD 

;get STARTING addr. 

i 




LDA SECT 

;GET SECTOR NUMBER. 





OUT SECTP 

;SET SECTOR INTO 1771. 





CALL HDL.D 

;GET HEAD-LOAD BIT? 

i 




RET 

; RETURN TO CALLER 




» 

END IF 





7 

; WRITE 

THE SECTOR AT SECT, ON THE PRESENT TRACK, 

i 



S USE S 

tt 

TARTINO ADDRESS AT 

DMAADD. 


FCF2 

3E0A 

7 

WRITE: 

MVI A,RTCNT 

5 GET RETRY COUNT. 

1 



WRETRY 





IF 

DMACNTL 


* 

FCF4 

01DOAO 


LX I 

B,OAODOH 

5 FLOPPY WRITE, FORCE INTERRUPT. 

FCF7 

118080 


LX I 

D» U8080H 

3 DMA WRITE, DMA COUNT BYTE. 


FCFfi 

CDB1FA 


CALL 

DMARW 

3ENTER COMMON READ/WRITE ROl 

JTJpE 




END If 





IF 

NOT DMACNTL 


c 




MV I 

B,OAOH 

", FLOPPY WRITE COMMAND BYTE. 





CALL 

DSKSET 

3 SE T UP FLOPPY CONTROLLER. 





ORA 

B 

3-OR- IN WRITE COMMAND. 

€ 



WRITE2S 

OUT 

DCOM 





WLOOF'S 

IN 

WAIT 

3 WAIT FOR READY. 





ORA 

A 

5 SET FLAGS. 

f 




UP 

WDONE 

5 HOP OUT WHEN DONE. 





MOV 

A,M 

5 GET BYTE FROM MEM. 





OUT 

DD AT A 

3 WRITE ONTO DISK. 

§ 




INX 

H 

5 INCREMENT MEM PTH. 





JMP 

WLOOP 

5 KEEP WRITING. 




WDONE: 

IN 

dsta r 

5 READ DISK S TATUS. 

€ 



li 

END IF 





7 

IF IN I RP AND NOT DMACNTL3IF INTERRUPTS ALLOWED, 

f 




El 


3 ENABLE AGAIN HERE. 





END IF 



FCFD 

E6FD 

7 

AN I 

OF DH 

5 LOOK AT THESE BITS. 

t 

FCFF 

C8 


RZ 


5 RETURN IF NO ERR. 


FDOO 

CDC5F-C 


CALL 

ERCHK 

5 CHECK/CORRECT SEEK ERR. 

t 

FD03 

C2F4FC 


UNZ 

WRE TRY 

3 TRY TO WRITE AGAIN. 


FD06 

CDB7FC 


L-ALL 

RECOV 

5 CHECK FOR ABORT 


FD09 

C3F2FC 

n 

JMP 

WRITE 

3RETRY WRITE AGAIN. 

• 



"LIST STATUS 

CHECK ROUTINE 



FDOC 

CD14FD 

5 

PRS1ATs 

CALL 

PSTAT 

5 CHECK PRINTER STAT US POR I . 

• 

FDOF 

3E00 

? 

n 

MVI 

A,0 

5 RETURN STATUS ACTIVITY. 

€ 



J 

IF 

TARDLL OR RDYLO 






RNZ 



€ 




END IF 





? 

IF 

RDYH1 


| 

FD11 

C8 


RZ 







END IF 


M 

FD12 

2F 

? 

CM A 


3 INVERT IT 

1 



? 

5 PUNCH 

AND READER ARE NOT SUPPORTED. 

1 



5 

PUNCH! 





FD13 

C9 

READER! 

M 

RET 



« 



7 

5 PSTAT - 

li 

- PRINTER STATUS CHECK 

ROUTINE. 

M 

FD14 

DB02 

7 

PSTATs 

u 

IN 

LSTAT 

3 READ PRINTER ST ATUS PORT. 

1 



? 

IF 

NOT TARDEL 


| 

FD16 

£602 


AN I 

LRBIT 






END IP 





5 

IF 

TARDEL 


1 




AN I 

81H 

3MASK READY BITS 





XRI 

81H 


i 




END IF 




FD18 C9 


RET 


RETURN TO CALLER 


5 WRITE A CHARACTER ON LISTING DEVICE. 


FD19 CD14FD 


FD1C CA19F0 


FD1F 79 
FD20 D303 
FD22 C9 


L1S I " 


7 


LTESYs 


LINUL: 

LINULls 


7 


LINUL3! 


NOTEOP! 
LSTF r 'Al 5 


LINUL2S 


IF 

LSTNUL 

MV I 

A, OGH 

CMP 

C 

JZ 

LINUL 

END IF 

IF 

LSTPAG 

MV I 

A, OAM 

CMP 

C 

.JZ 

LINUL3 

MOV 

A, C 

CPI 

OCH 

RZ 


END IF 

CALL 

PST AT 

IF 

TARDEL OR RDYLG 

•JNZ 

LTBSY 

END IF 

IF 

NOT TARDEL AND RDYI 

JZ 

LTBSY 

END IF 

MOV 

A, C 

OUT 

LDATA 

F\ET 


IF 

LSTNUL 

PUSH 

B 

MV1 

B, (LNULL AND OFTH)h 

CALL 

LTBSY 

MV1 

C, 0 

DCR 

8 

JNZ 

LINUL! 

..IMP 

LINUL2 

END IF 

IF 

LSTPAG 

PUSH 

B 

LDA 

LFCNT 

I NR 

A 

STA 

LFCNT 

CPI 

LINCNT-(LINCNT/11) 

MV1 

B, 1 

JNZ 

NOTEOP 

XRA 

A 

S 1 A 

LFCNT 

MV I 

B,(LINCNT/11>-H 

MV I 

C, 0 AH 

CALL 

LTBSY 

DCR 

j8 

JNZ 

LSIPA1 

END IF 

IF 

LSTNUL OR LSTPAG 

POP 

B 

MOV 

A 7 U 


RET 


?IF NULLS OR PAGING, 
?IF IT'S A CR, 

5 THEN HOP OUT TO 
5 NULL ROUTINE. 


5 IF PAGING 
5 GET A LINEFEED 
, DOES IT MATCH? 


5 READ LISTER STATUS. 


5 LOOP TILL LOW. 


il 

,LOOP TILL HIGH. 


5 GET DATA BYTE. 

5 PRINT IT. 

5 RETURN FROM LIST. 

5 IF LIST NULLS 
5 SAVE B&C. 

•1 ? GET NULL COUNT 
SPRINT (CR FIRST). 

5 GET NULL CHAR. 

S DECREMENT COUNTER. 
? DO NEXT NULL. 

SEX IT THE ROUTINE. 


5 IF LIST DEV. PAGING, 

5 SAVE B,C PAIR 
S GET LINE-FEED COUNT . 

5 INCREMENT IT. 

S SAVE IT BACK. 

SEND OF PAGE? 

5 SET UP FOR 1 LF. 

SHOP IF NOT END. 

5 SET LF- COUNT = 0. 

5 BETWEEN PAGES. 

S GE f LINE FEED CODE. 
SPRINT LINE-FEED. 

5 DECREMENT LF COUNTER. 
5 DO NEXT LINE FEED? 


SIF NULLS OR PAGING, 
5 RESTORE BfcC. 

5 RESTORE A. 

5 RETURN FROM LIST. 



END I F 

•t 

7 

ENDPROG EQU 


;END1No ADDRESb. 


? NOTE 5 AS THERE ARE ONLY SIX (6) SECTORS AVAILABLE FOR CBIOSgp 
5 THE SECOND SYSTEM TRACK (1), THE LAST ADDRESS BEFORE THIS POIN 
; SHOULD BE NO GREATER THAN THE GDI OS STARTING ADDRESS -t 037r <H 
5 THIS WILL NORMALLY BE XD/F (HEX). f 

m 

7 

? BIOS SCRATCH AREA. 


?CURRENT TRACK NUMBER. 

?CURRENT SECTOR NUMBER. 
SDISK TRANSFER ADDRESS. 


FD23 

TRKs 


DS 

1 

FD24 

SECT! 


DS 

1 

FD23 

DMAAI 

JD: 

DS 

2 


? 

; THl 

- NEXT S 

EVERAL BY 


! ENDZ j 

n 

ARE 

SET TO ZEI 


7 

START Z: 

« 



FD27 

7 

DISKNOs 

m 

DS 



7 

5 SPECIAL.FLAGS. 

at 

FD29 

7 

HLSF’s 


DS 

1 

FD2A 

L.FCN1 

M 

r* 

DS 

1 


7 

5 TRTAB 

- DI 

CK TRACK 


? 

N 


HEAD 

S FOR UP ' 

FD2B 

7 

TRTAI 

3s 

DS 

4 

FD2F 

DRVi L 

J3n 

DS 

4 

FD3 3 

DENS! 


DS 

1 

FD34 

ERCN’ 

rs 

DS 

i 

FD35 

SERCNT s 

DS 

1 

FD36 

LATCT 

Hs 

DS 

1 

FD37 

CLATCH: 

M 

DS 

1 

FD38 -= 

7 

ENDZ 


EQU 

$ 

FD38 = 

7 

8EGDAT 

EQU 

$ 

FD38 

DIRBUFs 

DS 

128 

FDB8 

ALVOi 


DS 

31 

FDD7 

CSVO! 


DS 

24 

FDEF 

ALV1 s 


DS 

31 

FEOE 

CSVl! 


DS 

24 

FE26 

ALV2! 


DS 

31 

F E45 

CSV2! 


DS 

24 

FEF1D 

ALV3! 


DS 

31 

FE7C 

CSV3! 


DS 

24 

FE94 = 

ENDOAT 

EQU 

* 

015C = 

DATS 

« 

IZ 

EQU 

$-BEGDAT 

FE94 

7 

DBUFF 

N 

' « 

DS 

128 

FD22 

7 


ORG 

LNDF-ROG 

FD22 



END 



5 ST ART OF ZEROED AREA. 
5 DISK NUMBER 


! HEAD-LOAD SELECT F 
i PAGING LINE-FEED C 


?DRIVE DENSITY FLAGS. 

SCURRENT DRIVE DENSITY VALUE. 
5ERROR COUNT" FOR RETRIES. 

5 SEEK RETRY COUNTER. 

?NEW CODE FOR LATCH. 

5 CURRENT CODE IN LA TCH. 


5 DIRECTORY BUFFER 


?TOTAL SIZE OF DISK FARM STORAG 
5128 BYTE DENSITY SELECT BUFFER 
? SHOW ACTUAL ENDING ADDRESS Qfltf 

3/oS 


c 





EO-TYPE 2DB00T64. PRN 


€ 


* 

; TARBELL ELECTRONICS CP/M GOLDSTAR! LOADER € 

5 VERSION OF 7-31-80. 

? Modified for DMA Control - 1-5-80. C 

5 Modified for reading larger bios from TRK 1 - 6-5-80. 

; Modified for Tarbe 11 CPU Card - 7-3-80. 

5 G.W.Mulchiri C 

5 Tarbel1 Electronics 

; Copvri3ht (c) 1980 Tarbe 11 Electronics € 


5 < 

; #*****s ********************* #***•» *#***************-»-5i***tt**-si**» 
? * 

; * ** NOTE ** ^ 

; * 

5* The equate for Double Density (DOUBDEN) must only be { 

?# set true for a disk which is formatted in double density on! 
5# and one which you wish to put an operating system on to. 

?* Otherwise* leave it false if you are building an operating^ 
5-a- system on to a single density formatted disk. 

; * 

; ************************************************************^ 


0000 

FFFF 


THIS PROGRAM IS LOADED AT LOCATION ZERO BY THE BOOTSTRAP PROG 
AND EXECUTED. ITS PURPOSE IS TO LOAD AND EXECUTE THE CP/M 0<! 
OPERATING SYSTEM AT THE TOP OF THE MEMORY IN USE. 


FALSE 

TRUE 


EQU 

EQU 


0 

NOT 


FALSE 


5 DEF INE 
SDEFINE 


VALUE OF 
VALUE OF 


FALSE. 


t 


TRUE. 


i ********* T HIS IS THE AREA TO MAKE CHANGES IN ************* *-4. 

;********* FOR DIFFERENT SYSTEM CONFIGURATIONS **************** 


0040 = 

MSI ZE 

EQU 

64 

0000 = 

TARBELL 

EQU 

FALSE 

0000 = 

DUBSID 

EQU 

FALSE 

0000 = 

DELTA 

EQU 

FALSE 

0000 = 

DOUBDEN 

EQU 

FALSE 

FFFF = 

DMACNTL 

EQU 

TRUE 

0000 = 

BASE 

EQU 

0 

001A = 

SPT 

EQU 

26 

001A = 

DDS 

EQU 

26 

OOFS = 

DISK 

EQU 

0F8H 


7 

u 


7 

IF 

TARBELL 


10 

EQU 

BASE 


MMENB 

EQU 

10+10 


MEMMAG 

EQU 

BASE+32 



END IF 

OOEO = 

ADRO 

EQU 

OEOH 


: MEMORY SIZE IN DECIMAL KB. 

I TRUE IF USING T ARBBELL CPU. 

FOR DOUBLE SIDED SYSTEMS 
IF USING DELTA CPU CARD 
IF DOUB. DEN DISK. 

IF USING DMA 
TARBELL I/O PORTS 
: NUMBER OF SECTORS 
sectors in trk 1 


TRUE 
: T RUE 
TRUE 
i TRUE 


CONTROL 
(00 or 10 HEX) 
PER TRACK. 
(Range = 26 t 


il) 


i DISK PORT BASE ADDRESS 


f 


;i/o ports on tarbel 1 cpu. 

;memory management enable port. 
* memor y manasemen t po r t. 


€ 

C 

t 


SDMA ADDRESS PORT 





ODE 1 


WCT 0 

EQU 

0 E 1 H 

5 DMA WORD CQUN 1 PUR 1 . 



f 

DOES 

— 

CMND 

EQU 

0E8I { 

5 DMA COMMAND PORT. 


i 


OOFS 

= 

DCOM 

EQU 

DISK 

5 COMMAND PORT. 




OOFS 


DSTAT 

EQU 

DISK 

5 SIA YUS PORT. 



f 

00F9 

= 

TRACK 

EQU 

DISK+1 

STRACK PORT. 


i 


OOF A 

— 

SECT 

EQU 

DISK+2 

5 SECTOR PORT. 




OOFB 

ss 

DATA 

EQU 

Ei ISK+3 

?DATA PORT. 



€ 

OOF C 

nn: 

WAIT 

EQU 

DISK+4 

5 WAIT PORT. 


€ 


OOFC 

=5 

DCONT 

EQU 

DISK +-4 

? CONTROL PORT. 




OOf'D 


DMACHK 

EQU 

DISK+5 

5 DMA CHECK PORT. 



%■ 

OOFF 


PANEL 

EQU 

OFFH 

5 fr ont panel machines. 


< 


BOOO 


CBASE 

EQU 

(MSIZE-20)*1024 




E400 


CPMB 

EQU 

CBASE+3400H 

15 START OF CP/M. 



f 

FAOO 

— 

BOOTH 

EQU 

CPMB+1600H 

5 COLD BOOT ENTRY POINT. 


« 


0019 

ss 

SDS 

EQU 

25 

5 always 25 sectors to read in 

trk 1 . 



0033 

sr 

NbEClb 

EQU 

SDS + DDS 

5 SECTORS OF CP/M. 



C 

OOOA 

= 

RTCMT 

II 

EQU 

10 

5 NUMBER OF RETRYS. 


C 

m 

0000 


? 

It 

ORG 

0 

5 START OF LOADER. 


m 




? 

BOOT: 





m- 





IF 

TAKBELL 

5 IF USING TARBELL CPU 



€ 




LX I 

D,1000H 

5 COUNT-16, DATA BYTE * 0 


€ 





MVI 

C, MEMMAG AND OFFH 






MI.OOPs 

MOV 

A,E 

5 GET ADDRESS VALUE 



C 




ORA 

C 

5 MAKE I/O PORT VALUE 


€ 





STA 

MOUT+1 

5 MODIFY PORT ON THE FLY 







MOV 

A,E 

5 GET INIT VALUE. 



€ 




CMA 


5 FLIP IT FOR RAM ON CPU 


€ 




MOOT: 

oin 

BASE 

5 PUT IT TO RAM ON CPU 







INR 

E 

5 BUMP DATA VALUE 



< 




DCR 

D 

5 DECREASE COUNT 


• 





JNZ 

MLOOP 

5 LOOP 16 TIMES. 







OUT 

MMENB 

5 ENABLE MEMORY MANAGEMENT . 



€ 



m 

END IF 



• 




7 

IF 

DELTA 

5 IF USING DELTA CPU. 



« 




MVI 

A, 1 

5 GET A 1 IN REG A. 


€ 





OUT 

V 

5 AND DISABLE CPU ROM SLOT. 







END IT 




§ 

m 

0000 

1EO A 

? 

MVI 

E.RTCNT 

5 GET RETRY COUNT. 




0002 

310001 

BLOOP: 

LX I 

SP,100H 

5 SET STACK POINTER. 



€ 

0005 

2100E4 


LX I 

H , CPMB 

5 CP/M STARTS HERE. 


t 


0008 

1633 


MVI 

EL NSECTS 

5 NUMBER OF SECTORS TO READ. 




OOOA 

0E02 


MVI 

C ? 2 

5 SECTOR NUMBER. 



€ 

OOOC 

0604 

RNTRKs 

MVI 

B,4 

5 FOR HEAD LOAD. 


€ 


OOOE 

CD2900 

RNStCs 

CALL 

READ 

5 READ FIRST SECTOR. 




0011 

15 


DCR 

D 

5 IF DONE, 



€ 

0012 

CAOOFA 


•JZ 

BOOTH 

5 GO TO CP/M. 


€ 


0015 

0600 


MVI 

B,0 

5 FOR NO HEAD LOAD. 




0017 

oc 


INR 

C 

5 INCREMENT SECTOR COUNT. 



i 

0018 

79 


MOV 

A,C 

5 DONE WITH 


« 


0019 

FE1B 

SECCMP: 

CPI 

SPT+1 

5 THIS TRACK? 




00 IB 

DAOEOO 

« 

JC 

RNSEC 

5 IF NOT, READ NEXT SECTOR. 


i 




7 

IF 

DOUBDEN AND NOT DUBSID 







MVI 

A ■> DDS + 1 

5 number of sectors to read on 

trk 2. 


# 




STA 

SECCMP+1 

,modify sector compare value. 


< 





MVI 

A, 8 

5 GET SET DOUBLE DENSITY CODE 







OUT 

WAIT 

5 SET LATCH FOR D.DENSITY 



€ 




END IF 



4 




? 

IF 

NOT DUBSID 




« 

00 IE 

3E5B 


MVI 

A 7 5BH 

5 STEP COMMAND. 


i 


nfr”T) 

D3FS 


OUT 

DCOM 

5 ISSUE IT. 





0022 

DBFC 


IN 

wai r 

;WAIT UNTIL DONE. 


c 




END IF 



€ 




7 

IF 

DUBSID 

; IF- DOUBLE SIDED SYSTEM. 


t 




MVI 

A 7 4 OH 

;SIDE SELECT COMMAND. 

f 





OUT 

DC-ONT 

;ISSUE IT. 






END IF 




€ 



7 




i 


0024 

0E01 


MVI 

C. 1 

;SECTOR NUMBER. 


£ 

0026 

C30C00 

It 

JMP 

RNTRK 

;READ NEXT TRACK. 

£ 

m 



7 

READ: 









IF 

DMACNTL 

;IF USING DMA CONTROL. 


€ 

0029 

3E41 


MVI 

A> 41H 

;SET UP FOR CHAN 0 REG. 

€ 


002B 

D3E8 


OUT 

CMND 




0020 

3E7F 


MVI 

A j 7FH 

SCOUNT FOR 128 BYTES 


i 

002F 

D3E1 


OUT 

WCTO 


f 


0031 

3E40 


MVI 

A 7 40H 

;READ COMMAND 



0033 

D3E1 


OUT 

WCTO 



€ 

0033 

70 


MOV 

A? L 

5GET LOW ADDRESS BYTE 

€ 


0036 

0 o fci U 


OUT 

ADRO 




0038 

7C 


MOV 

A? H 

5 HIGH ADDRESS BYTE 


€ 

0039 

D3E0 


OUT 

ADRO 


f 





END IF 




€ 

003B 

y .-« 

7 

MOV 

A 7 0 

;SECTOR IN A. 

i 


003C 

D3FA 


OUT 

SECT 

;SET SECTOR REGISTER. 



003E 

‘"'LOO 

OLOO 


MVI 

A 7 88H 

;COMMAND FOR READ. 


t 

0040 

B0 


ORA 

B 

;GET HEAD LOAD BIT. 

€ 


0041 

D3F8 


OUT 

DCOM 

;ISSUE COMMAND. 


t 



7 

IF 

NO"l DMACNTL? IF NOT USING DMA CONTROL. 

€ 




RL00P- 

IN 

WAIT 

;WAIT FOR DRQ. 






ORA 

A 

;SET FLAGS. 


f 




JP 

CHECK 

;JUMP IF DONE. 

i 





IN 

DATA 

SREAD DATA. 






MOV 

M> A 

;PUT IN MEMORY. 


€ 




INX 

H 

;INCREMENT POINTER. 

€ 





JMP 

RLOOP 

SLOOP UNTIL DONE. 






END IF 



f 



7 




€ 





IF DMACNTL 




0043 

DBFD 

SLOPP: 

IN 

DMACHK 

;CHECK DMA STATUS 


t 

0045 

07 


RLC 


; BIT 7 

i 


0046 

DA4300 


JC 

SLOPP 

5 LOOP IF CARRY 



0049 

C5 


PUSH 

B 

?SAVE B,C PAIR 


f 

004A 

018000 


LX I 

87 ! 2 U 

1 COUNT SET FOR 128 BYTES 

C 


004D 

09 


DAD - 

B 

;ADJUST H,L BY 128 BYTES 



004E 

Cl 


POP 

e 

;RESTORE BC 


f 



It 

END IF 


€ 


004F 

DBFS 

7 

CHECK: 

IN 

DSTAT 

? READ ST ATUS. 


€ 

0051 

E69D 


ANI 

9DH 

;LOOK AT ERROR BITS. 

€ 


0053 

L-fc! 


RZ 


5 OK IF ZERO. 



0054 

ID 


DCR 

E 

; DECREMENT RETRY COUNT. 


€ 

0055 

C20200 


JNZ 

BLOOP 

; TRY AGAIN IF NOT ZERO. 

i 


0058 

2F 


CMA 


;f1ip for front panel 



0059 

D3FF 


OUT 

PANEL 

? shorn error code front floppy* 


€ 

0058 

C35B00 

HERE: 

at 

JMP 

HERE 

; loop. 

€ 


007D 


7 

ORG 

7DH 

? PUT JUMP HERE. 


f 



u 

7 




< 





IF 

DOUBDEN 

AND NOT DUBSID ; IF RUNNING DOUBLE 

DENS 





RST 

0 

;DQ RESTART 0 


« 




DB 

ODDH 

;TH1S BYTE MUST BE HERE IF DOUB DEN 

. € 





DB 

0 

; THIS BYTE UNUSED 




t 



a 

END IF 





7 

IF 

DOUBDEN AND 

DUBSID 





RST 

0 


f 




DB 

ODFH 






DB 

0 






END IF 


€ 



7 








IF 

NOT DOUBDEN 

AND NOT DUBSID 


007D 

C7 


RST 

0 

DO WARM BOOT WITH 

€ 

007E 

E5 


DB 

0L5H 



007F 

00 


DB 

0 


C 




END IF 






7 

IF 

NOT DOUBDEN 

AND DUBSID 





RST 

0 


€ 




DB 

0E7H 






DB 

0 


m 



M 

END IF 


m 

0080 


7 

END 

BUOT § 

END OF BOOT. 


C B>D100 com 

1 f\C\ ro or A 1 AO ACT «=.A RO 



0100 

C3 

2C 

01 

43 

4F 

50 

59 

52 

49 

47 

48 

54 

20 

28 

43 

29 

.,.COPYRIGHT <C> 


0110 

20 

44 

49 

47 

49 

54 

41 

4C 

20 

52 

45 

3 3 

45 

41 

52 

43 

DIGITAL RESEARC 

t 

0120 

48 

2C 

20 

31 

39 

37 

jy 

20 

20 

20 

20 

20 

31 

00 

08 

11 

H, 1979 1... 


0130 

5D 

00 

1A 

FE 

20 

CA 

91 

01 

FE 

3F 

CA 

91 

01 

21 

00 

00 

3. .. 


0140 

1A 

13 

FE 

20 

CA 

crp 

01 

B7 

CA 

5F 

01 

D6 

30 

FE 

OA 

D2 


f 

0150 

72 

01 

29 

E5 

29 

29 

Cl 

09 

4F 

06 

oo 

09 

L- 3 

40 

01 

7C 

r•)•))••0 »•««©« i 


0160 

B7 

C2 

72 

01 

7D 

FE 

10 

DA 

72 

01 

2E 

00 

67 

29 

29 

C3 

. . r-. } . . . r. .. s ) ) . 


0170 

AS 

01 

11 

7B 

01 

CD 

75 

03 

C3 

00 

00 

OD 

OA 

49 

4E 

56 


c 

0180 

41 

4C 

49 

44 

20 

4D 

45 

4D 

4f 

K'O 

• jL 

59 

20 

53 

49 

5A 

45 

ALID MEMORY SIZE 


0190 

24 

21 

00 

00 

24 

CA 

A1 

01 

7E 

2F 

77 

BE 

2F 

77 

CA 

94 

~/w. /u ». . 


01 AO 

01 

7C 

E6 

FC 

67 

E5 

2A 

06 

00 


7A 

03 

El 

E5 

7C 

OF 

| q J{. 11 • 

a l u u u n m u a~ m u u la 

c 

01 BO 
r« 

OF 

E6 

3F 

C2 

B8 

01 

3E 

40 

47 

21 

8D 

03 

3E 

30 

77 


« « ?« . « >&G ! a a >OUJ# 


u 

01 CO 

77 

21 

8E 

03 

34 

7E 

FE 

3A 

DA 

CF 

01 

36 

30 

2B 

34 

05 

u»! . . 4~. 5 . . . 60+4. 

€ 

01 DO 

C2 

Cl 

01 

11 

7E 

03 

CD 

75 

03 

21 

01 

OS 

4E 

zo 

46 

cs 



01E0 

21 

00 

09 

11 

8F 

03 

78 

B1 

CA 

2C 

02 

OB 

C5 

OE 

OF 

E5 

1 

. a a a a u A aa?aaaaaa 


01F 0 

1A 

BE 

C2 

1A 

02 

13 

oo 

OD 

CA 

20 

02 

C3 

FO 

01 

01 

AF 


< 

0200 

3D 

C2 

00 

02 

21 

P3 

76 


7A 

03 

21 

77 

03 

36 

CD 

11 

==. .. ! . v"z. i w. 6. . 


0210 

88 

02 

21 

05 

00 

19 

EB 

C3 

75 

03 

El 

•~« 

Cl 

C3 

E3 

01 



0220 

El 

Cl 

2B 

ii 

8E 

03 

1A 

77 

2B 

IB 

1A 

77 

01 

7A 

03 

OA 

a a a a a a UH a a LU a Z a a 

€ 

0230 

FE 

06 

3E 

00 

C2 

5A 

02 

02 

Cl 

El 

C5 

78 

C6 

03 

47 

7D 



0240 

91 

6F 

7C 

98 

67 

22 

7C 

03 

EB 

21 

00 

09 

Cl 

C5 

•m'ri 

6 D 

. o ! . 9 " S. . iri 


0250 

00 

FE 

20 

CA 

63 

02 

09 

C3 

70 

02 

21 

FF 

01 

jLjL 

07 

03 

r o i " 

u a u l — .mm mm 

« 

0260 

C3 

06 

03 

78 

B1 

CA 

70 

02 

OB 

7E 

12 

13 

23 

C3 

63 

02 



0270 

_n 

Cl 

E5 

2A 

7C 

03 

EB 

21 

00 

01 

19 

3A 

6D 

00 

FE 

20 

CA 

a a 7C | M ! n a « 1 ill « n a 

€ 

u 

0280 

85 

02 

11 

00 

09 

78 

B1 

CA 

CO 

02 

C3 

A4 

02 

OD 

OA 

53 



0290 

Q 

4E 

43 

52 

4F 

4E 

49 

SA 

41 

54 

49 

4F 

4E 

20 

45 

52 

YNCRONIZATION ER 


02A0 

52 

4F 

52 

24 

OB 

7D 

E6 

07 

C2 

BO 

02 

E3 

7E 

•‘VO 

JL 

E 3 

6F 

ROR«. C.o 

t 

02B0 

7D 

17 

6F 

D2 

BC 

02 

1A 

84 

12 

C3 

BC 

02 

13 

C3 

85 

02 

3.0.. 


02C0 

D1 

11 

00 

12 

2A 

7A 

03 

OE 

06 

1A 

BE 

C2 

5A 

02 

5! 3 

13 

a mu # '^Z » a aa a a jL u a 


02D0 

OD 

C2 

C9 

02 

3A 

6D 

00 

FE 

20 

CA 

6D 

03 

06 

80 

21 

00 

• aaaSlTlaa a ITl a a a ! a 

€ 

02E0 

09 

7E 

B7 

C2 

09 

03 

23 

05 

C2 

El 

02 

EB 

2A 

01 

08 

01 

+1: -H. 

a aaaaTraaaaa^aaa 


02F0 

80 

FF 

09 

44 

4D 

21 

00 

09 

78 

Bi 

CA 

09 

03 

OB 

1A 

77 

a a a Df^l i a a a a a a a * Ui 


0300 

13 


i“*0 

F8 

02 

01 

C3 

06 

03 

21 

01 

08 

4E 

23 

46 

21 

*#a a a a a a a ! a a N#F ! 

• 

0310 

00 

09 

09 

44 

21 

SF 

03 

3E 

30 

77 

23 

77 

05 

CA 

31 

03 

. . . D ! _ . >0w#iu . . 1 . 


UoiiU 

21 

60 

03 

34 

7E 

FE 

3A 

DA 

1C 

03 

36 

30 

2B 

34 

wO 

1C 

! -•. 4'-. s . . . 60+4. . 

m 

0330 

—Hi 

03 

2A 

8D 

03 


65 

03 

11 

40 

03 

CD 

75 

03 

C3 

00 

00 

e..@..u..«. 

m- 

U 

0340 

OD 

OA 

52 

45 

41 

44 

59 

20 

46 

4F 

52 

20 


53 

59 

53 

..READY FOR "SYS 


0350 

47 

45 

4E 

22 

20 

4F 

52 

OD 

OA 

22 

53 
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5 CP/M BASIC INPUT/OUTPUT OPERATING SYSTEM (BIOS) 

; TARBELL ELECTRONICS 

5 2.2 VERSION OF 2-19-90 

? CHANGED SIGN-ON FOR CPM 2.2 2-19-80 

* •'«■■" * 11 v - ... 1 "■ 

*, THIS MODULE CONTAINS ALL THE INPUT/OUTPUT 
5 ROUTINES FOR THE CP/M SYSTEM, INCLUDING 
! THE DISK ROUTINES. 

m 

i THIS SECTION DEFINES THE I/O PORTS AND 
; STATUS BITS. BY SETTING THE PROPER VALUES 
! FOR THE EQU STATEMENTS, THE I/O MAY BE 
? AUTOMATICALLY RECONFIGURED TO FIT MOST 
; SITUATIONS. THE TRUE AND FALSE ONES 
5 CONTROL CONDITIONAL ASSEMBLIES OF DIFFERENT 
! SECTIONS OF I/O ROUTINES TO FIT DIFFERENT 
. INTERFACE REQUIREMENTS. 

FFFF = TRUE EQU OFFFFH 5 DEFINE VALUE OF TRUE. 

0000 = FALSE EQU NOT TRUE ;DEFINE VALUE OF FALSE. 

?*** THIS BEGINS THE AREA WHICH REQUIRES CHANGES *** 
;*** FOR DIFFERENT CONSOLE I/O SYSTEMS **•* 

; ***«*»*» s**#*##*#*##*'***##***##**##*-*#*-'*#####* a-#**# 


0014 


MSI ZE 

EQU 

20 

?MEMORY SIZE IN KBYTES. 


0000 

= 

INTRP 

EQU 

FALSE 

5 TRUE 

IF 

INTERRUPTS ALLOWED. 


oooo 


STD 

EQU 

FALSE 

; TRUE 

IF 

STANDARD I/O. 


FFFF 

= 

MS 102 

EQU 

TRUE 

? TRUE 

IF 

MITS 2SI0. 


OOOO 

s= 

DELTA 

EQU 

FALSE 

? TRUE 

IF 

USING DELTA PRODUCTS 

CPU. 

0000 

ss 

IS102 

EQU 

FALSE 

; TRUE 

IF 

IMSAI SI0-2. 


OOOO 

= 

TUART 

EQU 

FALSE 

5 TRUE 

IF 

CROMEMCO TUART. 


oooo 

n= 

VIDEO 

EQU 

FALSE 

5 TRUE 

IF 

USING A MEMORY MAPPED 

VIDEO 

oooo 

ss 

OTHER 

EQU 

FALSE 

5 TRUE 

IF 

SOMETHING ELSE. 


oooo 

== 

SOLOS 

EQU 

FALSE 

5 TRUE 

IF 

PROC TECH SOLOS. 


oooo 


DUBSID 

EQU 

FALSE 

5 TRUE 

FOR DOUBLE SIDED DRIVES. 


oooo 

— 

SPOOL 

EQU 

FALSE 

? TRUE 

IF 

USING KLH SPOOLER. 


0004 


NDISK 

EQU 

4 

?DEFINES 

THE NUMBER DRIVES IN 

SYSTEM 


IF VIDEO 5 IF USING A VIDEO BOARD 

QUTADDR EQU 0 5 PUT OUTPUT ADDRESS HERE 

END IF 


IF NOT SOLOS 


OOOO 


CSTAT 

EQU 0 

END IF 

oooo 


CCOM 

EQU 

0 

0001 

= 

CDATA 

EQU 

1 

oooo 

= 

CONUL 

EQU 

FALSE 

oooo 

ss 

CNULL 

EQU 

0 

0002 

= 

LSTAT 

EQU 

2 

0002 


LCOM 

EQU 

2 

0003 

ss 

LDATA 

EQU 

3 

OOOO 

— 

LSTNUL 

EQU 

FALSE 

OOOO 

ss: 

LNULL 

EQU 

0 

OOOO 

— 

LSTF'AG 

EQU 

FALSE 



1 TKirwr 

Pttl l 

A A 


;IF NOT PROC TECH SOLOS, 
5 CONSOLE STATUS PORT. 


5 CONSOLE COMMAND PORT. 
5 CONSOLE DATA PORT. 

5 CONSOLE NULLS? 

;CONSOLE NULL COUNT. 

5 LIST STATUS PORT. 

5 LIST COMMAND PORT. 
5LIST DATA PORT. 

5LIST DEVICE NULLS? 

5 LIST NULL COUNT. 

5 LIST DEVICE PAGING? 

■ I TWF?: Pi-R PAfnF _ 


€ 0008 = 
0001 * 
0000 = 
€! oooo * 


HLAB EQU 8 
STPRAT EQU 1 
DUAL EQU FALSE 
PERSCI EQU FALSE 


58 FOR HD LD AT BEG OF SEEK. 
5 RATE 1=6MS, 2=10MS, 3=20HS. 
5 TRUE IF DUAL DRIVE. 

5 TRUE IF FAST SEEK (PERSCI). 


€ 

€ 


€ 

€ 

< 

€ 

€ 
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t 
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f 

€ 
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€ 

€ 

t 

€ 


5 ##*#**##tt*#****###-»###**#***#*#**HHHt 

S*#* THIS IS THE END OF THE AREA WHICH NORMALLY NEED *#* 
5#** BE CHANGED FOR MOST CONSOLE I/O SYSTEMS *** 


0000 = 

RDYLO 

EQU 

STD OR SOLO 

S OR OTHER 5 STATUS READY WHEN LOW 

FFFF = 

RDYHI 

EQU 

NOT RDYLO 




IF 

SOLOS 

5 IF PROC TECH SOLOS, 


CSTAT 

EQU 

OFAH 

5 CONSOLE STATUS PORT. 


KBD 

EQU 

0C02EH 

5 SOLOS KEYBOARD. 


CLRSCR 

EQU 

0C0D5H 

5 CLEAR SCREEN. 


SCRN 

EQU 

0C054H 

5 SOLOS OUTPUT. 



END IF 






IF NOT SOLOS 

5 IF NOT PROC TECH SOLOS, 

OOFS 


DISK 

EQU 

0F8H 

5 DISK BASE ADDRESS. 




END IF 





IF SOLOS 

5 IF PROC TECH SOLOS, 



DISK 

EQU 

0E8H 

5 DIFFERENT DISK PORTS. 




END IF 


OOFS 

~r» 

DCOM 

EQU 

DISK 

5 DISK COMMAND PORT. 

OOFS 

= 

DSTAT 

EQU 

DISK 

5 DISK STATUS PORT. 

00F9 


TRACK 

EQU 

DISK+1 

5 DISK TRACK PORT. 

OOFA 


SECTP 

EQU 

DISK+2 

5 DISK SECTOR PORT. 

OOFB 

= 

DDATA 

EQU 

DISK+3 

5 DISK DATA PORT. 

OOFC 


WAIT 

EQU 

DISK+4 

5 DISK WAIT PORT. 

OOFC 


DCONT 

EQU 

DISK+4 

5DISK CONTROL PORT. 

OOOA 

= 

RTCNT 

EQU 

10 

5RETRY COUNT. 




IF 

STD 

5 IF STANDARD I/O, 



CKBR 

EQU 

00000001B 

5 KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

5 CONS OUTPUT RDY BIT. 




END IF 





IF 

MS 102 

5 IF MITS 2SI0, 

0001 


CKBR 

EQU 

0000000IB 

5KEYBOARD READY BIT. 

0002 

s 

CPTR 

EQU 

0000001OB 

SPRINT READY BIT. 




ENDIF 





IF IE 

:I02 OR DELTA 



CKBR 

EQU 

0000001OB 

5 KEYBOARD READY BIT. 



CPTR 

EQU 

0000000IB 

SPRINT READY BIT. 




ENDIF 





IF 

TUART 

5 IF CROMEMCO TUART, 



CKBR 

EQU 

01OOOOOOB 

SKEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

SPRINT READY BIT. 




ENDIF 





IF 

SOLOS 

SIF PROC TECH SOLOS, 



CKBR 

EQU 

0000000IB 

5KEYBOARD READY BIT. 



CPTR 

EQU 

1OOOOOOOB 

SDUMMY EQU. 




ENDIF 



tr nTWFR 5 IF SOMETHING ELSE, 


f 

< 

€ 

€ 

f 

f 

t 

€ 

€ 

f 

€ 

« 

f 

t 

I 

« 

C 

€ 

€ 

f 



CKBR 

EGU 

0000001OB 

?KEYBOARD READY BIT. 


CF'TR 

EGU 

1OOOOOOOB 

5 PRINTER READY BIT. 



END IF 


0002 = 

LRBIT 

EGU 

CPTR 

!LISTER READY BIT. 


0003 


IOBYTE 

EGU 

3 

;ADDRESS OF I/O BYTE. 

oooo 

SS 

CBASE 

EGU 

(MSIZE-20)#1024 

;BIAS FOR 

LARGER THAN 20K. 

3400 

ss 

CPMB 

EGU 

CBASE+3400H 

;START OF 

CPM 2.0 

3C06 

ss 

BDOS 

EGU 

CPMB+806H 

5 START OF 

BDOS 2.0. 

4A00 


BIOS 

EGU 

CPMB+1600H 

5 START OF 

CBIOS 10. 

0004 


CDISK 

EGU 

4 

5 LOCATION 

4 IS CURRENT DISK. 

002C 

- 

NSECTS 

EGU 

44 

?NUMBER OF SECTORS IN IT. 

4 A 00 



ORG 

BI OS 

5 START OF 

CBIOS STRUCTURE. 


I/O JUMP VECTOR 

THIS IS WHERE CPM CALLS WHENEVER IT NEEDS 
TO DO ANY INPUT/OUTPUT OPERATION. 

USER PROGRAMS MAY USE THESE ENTRY POINTS 
ALSO, BUT NOTE THAT THE LOCATION OF THIS 
VECTOR CHANGES WITH THE MEMORY SIZE. 


i 

f 

€ 

€ 

C 

€ 

i 

f 


4A00 

C39C4A 

JMP 

BOOT 

4A03 

C3EF4A 

WBOOTE! JMP 

WBOOT 

4A06 

C3484B 

JMP 

CONST 

4A09 

C3514B 

JMP 

CON IN 

4A0C 

C35D4B 

JMP 

CONGT 

4A0F 

C30B4D 

JMP 

LIST 

4A12 

C3164D 

JMP 

PUNCH 

4A15 

C3174D 

JMP 

READER- 

4 A18 

C3A34B 

JMP 

HOME 

4A1B 

C3684B 

JMP 

SELDSK 

4A1E 

C3A54B 

JMP 

SETTRK 

4A21 

C3FB4B 

JMP 

SETSEC 

4A24 

C3064C 

JMP 

SETDMA 

4A27 

C32D4C 

JMP 

READ 

4A2A 

C3B14C 

JMP 

WRITE 

4A2D 

C3044D 

JMP 

PRSTAT 

4A30 

C3004C 

JMP 

SECTRAN 



! THESE ENTRY 



IF 

SPOOL 



DB 

OFFH 



ow 

LTBSY 



DW 

LTBSY 



0W 

LTBSY 



DW 

LTBSY 



END IF 


5FROM COLD START LOADER. 

5 FROM WARM BOOT. f 

5 CHECK CONSOLE KB STATUS. 

5READ CONSOLE CHARACTER. 

;WRITE CONSOLE CHARACTER. f 

5WRITE LISTING CHAR. 

?WRITE PUNCH CHAR. 

5READ READER CHAR. • 

5MOVE DISK TO TRACK ZERO. 

;SELECT DISK DRIVE. 

?SEEK TO TRACK IN REG A. # 

5 SET SECTOR NUMBER. 

?SET DISK STARTING ADR. 

* READ SELECTED SECTOR. f 

5 WRITE SELECTED SECTOR. 

5LIST STATUS CHECK. 

;SECTOR TRANSLATE ROUTINE. f 

POINTS ADDED BY TARBELL ELECTRONICS. 

€ 

;IF USING KLH SPOOLER. 

?FLAG FOR SPOOLER. 

?LISTER STATUS LOCATION f 

5 FOR SPOOLER- 

;I DON'T KNOW WHY IT'S 
;HERE 4 TIMES EITHER. f 


THIS SECTION DEFINES THE THE DISK PARAMETERS € 

NOTE! 

IF YOU HAVE THE MACRO ASSEMBLER (MAC) FROM 

DIGITAL RESEARCH, YOU MAY ELIMINATE THIS SECTION f 

STARTING AT #*AA** TO #*BB** AND USE THE MACRO 

FILE "DISKDEF" TO CUSTOM TAILOR YOUR SYSTEM TO 

ALLOW DIFFERENT TYPES OF DRIVES OR MORE THAN 4 f 

DRIVES. 


3-8-AA#* 


4 


4 A 33 = DF'BASE 

4A33 824A0000 DPEOs 
nnnonnno 


EGU % 

DW XLTO,OOOOH 
DW OOOOH,OOOOH 


? BASE OF DISK PARAMETER BLOCK 
;TRANSLATE TABLE 4 

5 SCRATCH AREA 


4A3B 

2A4D734A 


DW 

DIRBUF ,DPBO 

5 DIR BUFF, FARM BLOCK 

4A3F 

C94DAA4D 

U 

DW 

CSVO,ALVO 

5CHECK, ALLOC VECTORS 

4A43 

824A0000 

7 

DPEl: 

DW 

XLT1,OOOOH 


4A47 

00000000 


DW 

OOOOH,OOOOH 


4A4B 

2A4D734A 


DW 

DIRBUF,DPB1 


4A4F 

F84DD94D 

• 

DW 

CSV1,ALV1 


4A53 

824A0000 

7 

DPE2S 

DW 

XLT2,OOOOH 


4A57 

00000000 


DW 

OOOOH,OOOOH 


4A5B 

2A4D734A 


DW 

DIRBUF,DPB2 


4A5F 

274E084E 


DW 

CSV2,ALV2 


4A63 

824A0000 

DPE3s 

DW 

XLT3,OOOOH 


4A67 

00000000 


DW 

OOOOH,OOOOH 


4A6B 

2A4D734A 


DW 

DIRBUF,DPB3 


4A6F 

564E374E 


DW 

CSV3,ALV3 




7 

;THE FOLLOWING DESCRIBES THE DI 

SK PHYSICAL 



? NATURE 

, SUCH AS SECTORS/TRACK, 

DIRECTORY SIZE. 

4 A 73 


5 

DPBO 

EQU 

$ 

5 ONE OF 4 DISK PARM. BLOCKS 

4A73 

1A00 


DW 

26 

;SECTORS/TRACK 

4 A 75 

03 


DB 

3 

5 BLOCK SHIFT 

4A76 

07 


DB 

7 

?BLOCK MASK 

4A77 

00 


DB 

0 

;EXTNT MASK 

4A78 

F200 


DW 

242 

5DISK SIZE - 1 

4A7A 

3F00 


DW 

63 

SDIRECTORY MAX. 

4A7C 

CO 


DB 

192 

;ALLOCO 

4A7D 

00 


DB 

0 

*, ALLOC 1 

4A7E 

1000 


DW 

16 

?CHECK SIZE 

4A80 

0200 


DW 

2 

?NUMBER OF SYSTEM TRACKS 



? 

;SECTOR 

m 

TRAN 

SLATION TABLE 


4A82 

sr 

7 

XLTO 

EQU 

$ 

5 START OF TRANS. TABLE 

4A82 

01070D1319 

DB 

1,7,13,19,25 


4A87 

050B111703 

DB 

5,11,17,23,3 


4A8C 

090F150208 

DB 

V,15,21,2,8 


4A91 

0E141A060C 


DB 

14,20,26,6, 12 


4A96 

1218040A10 

i 

DB 

18,24,4,10,16,22 


4A73 

— 

5 

DPB1 

EQU 

DPBO 

5 EQUIVALENT PARAMETERS 

4A82 

~ 

XLT1 

M 

EQU 

XLTO 

;SAME TRANSLATE TABLE 

4A73 

as 

7 

DPB2 

EQU 

DPBO 


4 A 82 

= 

XLT2 

m 

EQU 

XLTO 


4A73 

as 

7 

DPB3 

EQU 

DPBO 


4A82 


XLT3 

EQU 

XLTO 



7 


4A9C 318000 


■ BOOT 

; THP3 SECTION IS EXECUTED WHENEVER RESET AND RUN 
; IS PUSHED, AFTER THE COLDSTART LOADER READS IN 
} THE CPM SYSTEM. 

BOOT: LX I SP.80H 5 SET STACK POINTER. 

IF INTRP 5 IF INTERRUPTS ALLOWED, 

El ?ENABLE THEM HERE. 

END IF 

TF STD ;IF STANDARD I/O* 


4A9F 

4AA1 

4AA3 

4AA5 

4AA7 

4AA9 


4AAB 
4AAC 
4AAF 
4AB2 
4AB4 
4AB7 
4AB8 
4AB9 
4ABA 
4ABD 
4 ABF 
4AC2 
4AC5 
4AC7 
Aar. A 




DW 

0,0 

;LEAVE SPACE FOR INIT. 



DW 

0,0 




DW 

0,0 




DW 

0,0 




END IF 




IF 

MS 102 

?IF MITS 2SI0, 

3E03 


MV I 

A, 3 

;INITIALIZE 2SI0. 

D300 


OUT 

CCOM 


D302 


OUT 

LOOM 


3E1 i 


MV I 

A, 11H 


D300 


OUT 

CCOM 


0302 


OUT 

LCOM 




END IF 




IF IS102 OR DELTA 



MV I 

A,OAAH 

UNITIALIZE SIO 2-2. 



OUT 

CCOM 




OUT 

LCOM 




MV I 

A, 40H 




OUT 

CCOM 




OUT 

LCOM 




MV I 

A,OCEH 




OUT 

CCOM 




OUT 

LCOM 




MV I 

A, 37H 




OUT 

CCOM 




OUT 

LCOM 




END IF 




IF 

TUART 

UF CROMEMCO TUART, 



MV I 

A, 1 

;SET A = 1. 



OUT 

54H 

5SELECT DEVICE A. 



OUT 

52H 

;RESET DEVICE B. 



LX I 

H,BAUDRS 

?GCT ADR OF BAUD RATE TABLE. 



MV I 

A, 11H 

5OCTUPLE THE CLOCK. 


IT 1 ! 

OUT 

02H 

?S< RESET CURRENT DEV. 



MOV 

A, M 

5GET BAUD RATE FROM TABLE. 



INX 

H 

UNCREMENT POINTER. 



OUT 

0 

5SET BAUD RATE. 



CALL 

CON IN 

5 READ KEYBOARD. 



CALL 

CON IN 

5READ KEYBOARD AGAIN. 



CPI 

ODH 

UF NOT CARRIAGE-RETURN, 



MV I 

A, 1 

»SLOW THE CLOCK. 



JNZ 

IT1 

!UNTIL A CARRIAGE-RETURN. 



END IF 




IF 

o Li l>_ 0 

UF PROC TECH SOLOS, 



CALL 

CLRSCR 

;CLEAR SCREEN. 



END IF 


AF 


XRA 

A 

;CLEAR SCRATCH AREA. 

320300 


STA 

IOBYTE 

;CLEAR I/O BYTE. 

320400 


STA 

CDISK 

?SELECT DRIVE ZERO 

0E09 


MV I 

C,ENDZ-S 

TARTZ » GET LENGTH OF ZERO AREA 

211C4D 


LX I 

H,STARTZ 

;GET SCRATCH ADDRESS. 

77 

BOOTL: 

MOV 

M, A 

5 PUT ZERO IN MEMORY. 

23 


INX 

H 

UNCREMENT POINTER. 

0D 


DCR 

C 

5 DECREMENT COUNTER. 

C2B74A 


JNZ 

BOOTL 

;LOOP TILL DONE. 

3EF2 


MV I 

A,0F2H 

?SET LATCH CODE = F2. 

32284D 


STA 

LATCH 


CDD44A 


CALL 

SETUP 

;SET UP JUMPS. 

DBO i 


IN 

CD AT A 

5 CLEAR CONSOLE STATUS. 

21EE4C 


LX I 

H,SMSG 

5PRINT OPENING MESSAGE. 


rnnc4c call pmsg 


4ACD 3A0400 GOCPMs LDA CDISK j GET DISK NUMBER TO 

4ADO 4F MOV C,A 5 PASS TO CCP IN C. 

4ADI C30034 JMP CF'MB 5 JUMP TO CCP. 

« 

* 

; SET UP JUMPS INTO CP/M IN LOWER MEMORY. 


4AD4 3EC3 SETUP: MVI A,OC3H 5PUT JMP TO WBOOT 

4AD6 320000 STA 0 5ADR AT ZERO. 

4AD9 21034A LXI H,WBOOTE 

4ADC 220100 SHLD 1 

4ADF 320500 STA 5 

4AE2 21063C LX I H,BDOS ?PUT JUMP TO BDOS 

4AE5 220600 SHLD 6 ;AT ADR 5,6,7. 

4AE8 218000 LX I H,80H 5 SET DEFAULT DMA ADR. 

4AEB 221A4D SHLD DMAADD 

4AEE C9 RET 5RETURN FROM SETUP. 


BAIJDRS: 


IF TUART ?IF CROMEMCO TUART, 

DB 94H,OCEH,0A2H,92H,88H,84H,82H,1 

END IF 


; WARM-BOOT: READ ALL OF CPM BACK IN 

? EXCEPT BIOS, THEN JUMP TO CCP. 

* 

7 

4AEF 318000 WBOOT: LX I SP.80H ,* SET STACK POINTER. 

IF INTRP 5 IF INTERRUPTS ALLOWED, 

Ei ; ALLOW THEM HERE. 

END IF 

IF LSTPAG ;IF LIST DEVICE PAGING, 

XRA A ?RESET LINE-FEED COUNT. 

STA LFCNT 
END IF 

LDA CDISK 5 SAVE DISK NUMBER. 

STA TEMP 

MVI C,0 5 SELECT DISK ZERO. 

CALL SELDSK 

CALL HOME ;MOVE TO TRACK ZERO. 

JNZ RDERR ?IF ERROR, PRINT MESSAGE. 

MVI D,NSECTS 5 GET # SECTORS FOR CPM READ. 
LX I B, 2 ? TRACK (B)=0, SECTOR (0*2. 

LXI H,CPMB ,GET STARTING ADDRESS. 

IF INTRP ;IF INTERRUPTS ALLOWED, 

D1 5DISABLE THEM HERE. 

END IF 


4AF2 3A0400 
4AF5 32274D 
4AF8 OEOO 
4AFA CD684B 
4AFD CDA34B 
4B00 C23D4B 
4B03 162C 
4B05 010200 
4B0S 210034 


4B0B 

C5 

RDBLK: 

PUSH 

B 

4B0C 

48 


MOV 

C, B 

413 OD 

CDA54B 


CALL 

SETTRK 

4B10 

Cl 


POP 

B 

4B11 

C23D4B 


JNZ 

RDERR 

4B14 

221A4D 

RBLK1: 

SHLD 

DMAADD 

4B17 

CDFB4B 


CALL 

SETSEC 

4B1A 

CD2B4C 


CALL 

READ 

4B1D 

C23D4B 


JNZ 

RDERR 

4B20 

15 


DCR 

D 

4B21 

CA314B 


JZ 

ALDON 

4B24 

OC 


I NR 

C 

4025 

79 


MOV 

A 7 L- 

4B26 

FE1B 


CPI 


4B 28 

DA144B 


JC 

RBLK1 


(•)FC) 1 


MV I 

C» 1 


5SAVE B&C. 

;G0 TO TRACK IN B. 

5 RESTORE B&C. 

;IF ERROR, PRINT MESSAGE. 

?SET STARTING ADDRESS. 

5 READ STARTING AT SECTOR IN C. 

5 IF ERROR, PRINT MESSAGE. 

5 DECREMENT SECTOR COUNT. 

?ALL DONE WHEN D=0. 

?INCREMENT SECTOR NUMBER. 

5 IF SECTOR NUMBER 
;IS NOT 27, 

5KEEP READING ON THIS TRACK. 

;OTHERWISE, RESET SECTOR*!* 


4B2D 

04 


INR B 

5 INCREMENT TRACK NUMBER, 

4B2E 

C30B4B 


JMP RDBLK 

,AND READ NEXT TRACK. 

4B31 

3A274D 

ALDON: 

LDA TEMP 

5 RESTORE DISK NUMBER. 




IF INTRP 

5 IF INTERRUPTS ALLOWED, 




El 

END IF 

? ALLOW THEM AGAIN HERE. 

4B34 

320400 


STA CDISK 


4B37 

CDD44A 


CALL SETUP 

5 SET UP JUMPS. 

4B3A 

C3CD4A 

m 

JMP GOCF'M 

5 GO BACK TO CPM. 

4B3D 

0E42 

? 

RDERR: 

MVI C,'B" 

5 GET BOOT ERROR CODE. 

4B3F 

CD5D4B 


CALL CONOT 

SPRINT IT. 

4B42 

CD514B 


CALL CONIN 

5 READ A CHAR FROM CONSOLE. 

4B45 

C3EF4A 

M 

JMP WBOOT 

5 DO A WARM BOOT. 



7 

; CHECK 

tt 

7 

CONSOLE INPUT 

STATUS. 

4B48 

DBOO 

CONST! 

IN CSTAT 

SREAD CONSOLE STATUS. 

4B4A 

E601 


ANI CKBR 

5 LOOK AT KB READY BIT. 

4B4C 

3E00 

CONST 1: 

MVI A, 0 

5 SET A=0 FOR RETURN. 




IF RDYLO 

5 IF STATUS READY LOW, 




RNZ 

ENDIF 

SNOT READY WHEN NOT 0. 




IF RDYHI 

SIF STATUS READY HIGH, 

4B4E 

C8 


RZ 

ENDIF 

SNOT READY WHEN ZERO. 

4B4F 

2F 


CMA 

SIF READY A=FF. 

4B50 

C9 


RET 

5RETURN FROM CONST. 



« 

7 

S READ 
« 

A CHARACTER FROM CONSOLE. 



7 

CONIN: 

ir NOT SOLOS 

SIF NOT PROC TECH SOLOS, 

4B51 

DBOO 


IN CSTAT 

SREAD CONSOLE STATUS. 

4B53 

E601 


ANI CKBR 

5 IF NOT READY, 




ENDIF 

>*■ « 




IF SOLOS 

5 IF PROC TECH SOLOS, 




CALL KBD 

SREAD SOL KEYBOARD. 




JZ CONIN 

ENDIF 

5READY WHEN NOT ZERO. 




IF RDYLO AND 

NOT SOLOS 




JNZ CONIN 
ENDIF 

SLOOP UNTIL LOW. 




IF RDYHI 

SIF READY WHEN HIGH, 

4B55 

CA514B 


JZ CONIN 

ENDIF 

SLOOP UNTIL HIGH. 




IF NOT SOLOS 

SIF NOT PROC TECH SOLOS, 

4B58 

DB01 


IN CDATA 

ENDIF 

SREAD A CHARACTER. 

4B5A 

E67F 


ANI 7FH 

SHAKE MOST SIG. BIT 

4B5C 

C9 


RET 

5RETURN FROM CONIN. 


J 


WRITE A CHARACTER TO THE CONSOLE DEVICE 


CONOT 


< 


CONOTl: 

4B5D DBOO 
4B5F E602 


IF 

CONUL 

MVI 

A, ODH 

CMP 

C 

JZ 

CONULL 


END IF 

IF NOT SOLOS AND NOT 
IN CSTAT 
ANI CPTR 
END IF 


;IF NULLS REQUIRED, 
5IF IT'S A CR, 

* THEN HOP OUT 
;TO NULL ROUTINE. 


VIDEO 

; F<EAD CONSOLE STATUS. 
5 IF NOT READY, 


< 

€ 

« 


4B61 CA5D4B 


IF RDYLO AND NOT SOLOS 
JNZ CONOT1 
END IF 

IF RDYHI 
JZ CONOT1 

END IF 


AND NOT VIDEO 
?LOOP UNTIL LOW. 


5IF READY WHEN HIGH, 
5 LOOP UNTIL HIGH. 


c 

« 


IF NOT SOLOS AND NOT VIDEO 

4B64 79 MOV A,C 5 GET CHARACTER. f 

41365 D301 OUT CD AT A SPRINT IT. 

4B67 C9 RET 5 RETURN. 

ENDIF f 

m 

STHIS ROUTINE CALLES YOUR VIDEO DRIVER f 

5 ROUTINE WHICH MUST BE IN ROM. 

5ALL REGISTERS MUST BE SAVED AND RESTORED 

5BY YOUR VIDEO DRIVER IN ORDER TO BE f 

$CGMPATIABLE WITH CPM. 

5CPM PASSES THE CHAR. TO BE OUTPUT IN THE 

5 C REGISTER. MAKE ANY CHANGES IN THIS f 

?ROUTINE TO PASS THE CHAR FROM REG C TO 
STHE REGISTER YOUR VIDEO DRIVER EXPECTS 

!IT TO BE IN. 1 


IF VIDEO 
MOV A, C 
CALL QUTADDR 
RET 
END IF 


? IF USING A VIDEO DRIVER IN ROI* 
5 GET THE CPM CHAR INTO REG A f 
; CALL YOUR VIDEO DRIVER. 

5 RETURN TO CPM. 


IF CONUL 
CONULL: PUSH B 

MVI B,CNULL+1 
CONULis CALL CONOT1 
MV I C,G 
PCR B 
JNZ CONUL1 
POP B 
MOV A,C 
RET 
END IF 


5 SAVE B&C. 

5 GET NULL COUNT. 
SPRINT CR. 

5 GET NULL CHAR. 

;DECREMENT COUNTER. 
5 DO NEXT NULL. 

5 RESTORE B«C. 

;RESTORE A. 

?RETURN. 


« 

€ 

€ 

« 


IF SOLOS 
PUSH B 
MOV B, C 
CALL SCRN 
POP B 
MOV A,C 
RET 
END IF 


5 IF PROC TECH SOLOS, 

5 SAVE B&C. 

SPLIT CHAR IN B REG. 

5 OUTPUT CHAR TO SOLOS. 
SRESTORE B&C. 

SPLIT CHAR IN A. 

SRETURN FROM CONOT. 


< 

i 

f 



3 SELECT DISK NUMBER ACCORDING TO REGISTER C. 

* € 
SELDSKs 


4B68 

210000 


LX I 

H, 0 

5 SET UP FOR ERROR CODE 

4B6B 

79 


MOV 

A,C 

5 GET NEW DRIVE. ® 

4B6C 

FE04 


CPI 

NDISK 

3CALLING UNDEFINED DRIVE ? 

4B6E 

DO 


RNC 


!IF NO CY, H,L TELLS CPM YES. 

4B6F 

321D4D 


STA 

PD I SK 

3WE ARE OK, SAVE NEW DISK NUM® 

4B72 

211C4D 


LX I 

H, disknq 

3GET OLD DRIVE NUMBER. 



SELMOR: 




4B75 

7E 


MOV 

A,M 

5GET OLD DISK NUMBER. f 




IF 

DUAL 

5 IF DUAL DRIVE, 




AN I 

OFEH 

5 CLEAR OUT BIT 0. f 




END IF 


4B76 

5F 


MOV 

E, A 

3PUT OLD DISK NO. IN D&E. f 

4B77 

1600 


MV I 

D» 0 


41'! 79 

21214D 


LX I 

H, TRTAB 

5GET ADDRESS OF TRACK TABLE. 

4B7C 

E5 


PUSH 

H 

5SAVE ADDRESS OF TRTAB. f 

4B7D 

19 


DAD 

D 

5ADD DISK NO. TO ADDRESS. 

4B7E 

DBF9 


IN 

TRACK 

5READ 1771 TRACK REGISTER. 

4B80 

77 


MOV 

M, A 

5PUT INTO TABLE. # 

4B81 

79 


MOV 

A,C 

5 GET NEW DISK NUMBER. 




IF 

DUAL 

3 IF A DUAL DRIVE, C 




AN I 

OFEH 

3 CLEAR BIT 0. 




END IF 

€ 

4B82 

5F 


MOV 

E, A 

3PUT NEW DISK NO. IN D&E. 

4B83 

El 


POP 

H 

5 RESTORE ADDRESS OF TRTAB. 

4B84 

19 


DAD 

D 

3ADD DISK NO. TO ADDRESS. | 

4B85 

7E 


MOV 

A, M 

5GET NEW TRACK NUMBER. 

4B86 

D3F9 


OUT 

TRACK 

SPLIT INTO 1771 TRACK REG. 

4B88 

79 


MOV 

A? C 

5 UPDATE OLD DISK NUMBER. $ 

4B89 

321C4D 


STA 

DISKNO 


4B8C 

2F 


CMA 


3BITS INVERTED INTO LATCH. 

4B8D 

87 


ADD 

A 

SPLIT BITS 18<2 AT 4&5. C 

4B8E 

87 


ADD 

A 


4B8F 

87 


ADD 

A 


4B90 

87 


ADD 

A 

< 

4B91 

F602 


OR I 

2 

5 MAKE LATCH COMMAND. 

4B93 

32284D 


STA 

LATCH 

3 SAVE NEW LATCH CODE. 



II 

* 



f 



3SELECT 

DRIVE AS A FUNCTION OF H, L 

4E<96 

2A1D4D 

? 

LHLD 

PDISK 

5 LOAD DISK NUMBER AND ZERO BY® 

4B99 

11334A 


LX I 

D» DPBASE 

3 POINT TO DISK PARM START. 

4B9C 

29 


DAD 

H 

5 *2 

4B9D 

29 


DAD 

H 

5 *4 € 

4B9E 

29 


DAD 

H 

3 *8 

4B9F 

29 


DAD 

H 

3 *16 

4 BAD 

19 


DAD 

D 

5COMPUTE INDEX FOR THE DRIVE € 

4BA1 

AF 


XRA 

A 

5 SET A = 0. 

4BA2 

C9 

« 

RET 


3 RETURN FROM SELDSK. 

f 



7 

1 MOVE 

DISK 

TO TRACK 

ZERO. 

4BA3 

OEOO 

HOME! 

MV I 

C 7 0 

5 SEEK TO TRACK ZERO. f 


5 SET TRACK NUMBER TO WHATEVER IS IN REGISTER C. 
3 ALSO PERFORM MOVE TO THE CORRECT TRACK (SEEK). 

• 

7 

SETTRKs 


7 


t 

c 


F!=i 


IF NOT DUBSID 
PUSH H 


5 IF NOT DOUBLE-SIDED 
5 SAVE H&L. 


4BA6 

2A284D 


LHLD 

LATCH 

5GET NEW OLD LATCH. 

4BA9 

7D 


MOV 

A, L 

5 GET NEW LATCH. 

4BAA 

D3FC 


OUT 

DCONT 

5 SELECT DRIVE NOW. 

4BAC 

32294D 


STA 

CLATCH 

5 REMEMBER CURRENT LATCH. 

4BAF 

BC 


CMP 

H 

SIS NEW SAME AS OLD? 

4BB0 

3EFF 


MVI 

A,OFFH 

?IF NOT, SET FLAG = FF. 

4BB2 

C2B64B 


JNZ 

SFLAG 


4BB5 

2F 


CMA 


;IF NEW = OLD, FLAG = 0. 

4BB6 

321F4D 

SFLAGs 

STA 

HLSF 

5 SET HEAD-LOAD/SELECT FLAG 

4BB9 

El 


POP 

H 

5 RESTORE H&L. 




END IF 


4BBA 

79 


MOV 

A, C 

5GET NEW TRACK NUMBER. 




IF 

DUBSID 

!IF DOUBLE-SIDED DISK, 




RRC 


5 SHIFT RIGHT ONCE. 




PUSH 

PSW 

5 SAVE REVISED TRACK NUMBER 




PUSH 

H 

5SAVE H&L. 




LHLD 

LATCH 

5 GET NEW & OLD LATCH. 




MOV 

A, L 

?PUT NEW LATCH IN A. 




JC 

SIDE2 

5IF TRACK # ODD, SIDE #2. 




ORI 

40H 

SCLEAR LATCH BIT FOR SIDE 




JMP 

SETLAT 

;GO AHEAD AND SET LATCH. 



S1DE2: 

ANI 

0B2H 

5 SET LATCH BIT FOR SIDE 2. 



SETLATs 

OUT 

DCONT 

!OUTPUT TO THE LATCH. 




STA 

CLATCH 

!SET CURRENT LATCH CODE. 




XRA 

H 

?COMPARE OLD WITH NEW, 




ANI 

OBFH 

SIGNORE SIDE BIT. 




MVI 

A,OFFH 

SIF OLD NOT = NEW, 




JNZ 

SETFL 

S SET FLAG = FF. 




CMA 

A 

SIF OLD = NEW, FLAG = 0. 



SETFL: 

STA 

HLSF 

5 SET FLAG ZERO IF SAME. 




POP 

H 

5 RESTORE H&L. 




pop 

PSW 

5RESTORE THE TRACK NUMBER. 




ANI 

7FH 

SCLEAR MSB. 




HOV 

C 7 A 

5 SET OTRACK NUMBER. 




END IF 


4BBB 

32184D 


STA 

TRK 

SUPDATE OLD WITH NEW. 



? 

5 MOVE 

II 

THE HEAD TO THE TRACK IN REGISTER A. 

4BBE 

C5 

7 

SEEK! 

PUSH 

B 

5 SAVE B&C. 

4BBF 

47 


MOV 

B, A 

5 SAVE DESTINATION TRACK. 

4BC0 

3E0A 


MVI 

A,RTCNT 

5 GET RETRY COUNT. 

4BC2 

322&4D 

SRETRY: 

STA 

SERCNT 

5STORE IN ERROR COUNTER. 

4BC5 

DBF9 


IN 

TRACK 

SREAD PRESENT TRACK NO. 

4BC7 

4F 


MOV 

C, A 

5 SOME 

4BC8 

79 


MOV 

A, C 

5 DELAY 

4BC9 

B8 


CMP 

B 

5 SAME AS NEW TRACK NO. ? 

43BCA 

C2CF4B 


JNZ 

NOTHR 

5 JUMP IF NOT THERE. 

4BCD 

Cl 

THERE: 

POP 

B 

5 RESTORE B&C. 

4BCE 

C9 


RET 


5RETURN FROM SEEK. 



NOTHR: 






;THI8 ROUTINE IS TO i 

ALLOW TIME FOR THE DRIVE 



? TUNNEL 

ERASE TO TERMINATE BEFORE MOVING THE 



5HEAD. 

THE DELAY IS 

APPROX. 700 MICRO-SEC. @ 



! 4 MHZ 

CPU TIME, AND 

DOUBLE THIS FOR 2 MHZ CPU'S. 

4BCF 

F5 

? 

PUSH 

PSW 

5 SAVE ACCUM 

4BD0 

3ED0 


MVI 

A»ODOH 

5 DELAY COUNT ■ 208 

4BD2 

3D 

BUSY 1: 

DCR 

A 

SDECREASE COUNT 

4BD3 

C2D24B 


JNZ 

BUSY 1 

SLOOP TILL DONE 

4BD6 

FI 


POP 

PSW 

5 RESTORE ACCUM 



4BD7 

4BD8 

4BDA 

4BDC 

4BDD 

4BE0 

4BE2 

4BE4 

4BE6 

4BE8 

4BEA 


4BED 
4BF0 
4BF1 
4BF4 
4BF5 
4BF8 


4BFB 

4BFC 

4BFF 


IF NOT PERSCI ;IF NOT PERSCI DRIVE, 


78 


MOV 

A, B 

?RESTORE A FROM B. 

D3FB 


OUT 

DD AT A 

5 TRACK TO DATA REGISTER. 

DBFS 

BUSY: 

IN 

DSTAT 

5READ DISK STATUS. 

OF 


RRC 


5 LOOK AT BIT 0. 

DADA4B 


JC 

BUSY 

?WAIT TILL NOT BUSY. 

3E1D 


MV I 

A,14H+STPRAT+HLAB 5GET STEP RATE, DO 

D3F8 


OUT 

DCOM 

"SEEK WITH VERIFY. 

DBFC 


IN 

WAIT 

5WAIT FOR INTRQ. 

DBFS 


IN 

DSTAT 

5READ STATUS. 

E691 


AN I 

91H 

5 LOOK AT BITS. 

CACD4B 


•JZ 

THERE 

5 OK IF ZERO. 



END IF 




IF 

PERSCI 

;IF PERSCI DRIVE, 



MV I 

A,40H+HLAB 

5 IF CARRY = 1, 



JC 

SDIR 

>STEP IN. 



MV I 

A,60H+HLAB 

5 OTHERWISE, OUT. 


SLUR: 

OUT 

DCOM 

5 ISSUE STEP DIRECTION. 



MV I 

A, 20 

?DELAY LOOP COUNT. 


DLOOPs 

DCR 

A 

?DECREMENT COUNTER. 



JNZ 

DLOQP 




HOV 

A, C 

5GET PRESENT TRACK. 



SUB 

B 

5 FIGURE TRACKS TO STEP. 



JP 

STEP 

?IF NEGATIVE, 



CMA 


!FIGURE THE 



I NR 

A 

5 TWO ' S COMPLEMENT. 


STEP: 

MOV 

C, A 

;GET DIFFERENCE. 



MVI 

A, 1 

5PERSCI STEP COMMAND. 


STEP 1: 

OUT 

DCONT 

5STEP PERSCI (E--14). 



DCR 

C 

5 COUNT THE STEP. 



JNZ 

STEP 1 

5STEP UNTIL C = 0. 



IN 

WAIT 

5 CLEAR 1771. 



IN 

DSTAT 




MOV 

A, B 

5 GET DEST. TRACK. 



OUT 

TRACK 

?UPDATE TRACK REG. 



LOA 

CLATCH 

5 GET LATCH CODE. 



AN I 

72H 

? MAKE COMMAND TO 



OUT 

DCONT 

5 SWITCH WAIT FOR 



IN 

WAIT 

;SEEK COMPLETE. 



LDA 

CLATCH 

S RESTORE LATCH TO 



OUT 

DCONT 

SOLD CODE. 



XRA 

A 

5 MAKE GOOD RETURN. 



POP 

B 

SRESTORE B&C. 



BET 





END IF 




If NOT PERSCI 

5 IF NOT PERSCI DRIVE, 

3A264D 


LDA 

SERCNT 

S GET ERROR COUNT. 

3D 


DCR 

A 

SDECREMENT COUNT. 

C2C24B 


JNZ 

SRETRY 

SRETRY SEEK. 

Cl 


POP 

B 

5 RESTORE B&C. 

CD584C 


CALL RECOV 

5 IF SEEK RETRY = 10 CHECK 

C3BE4B 


JMP 

SEEK 

5 FOR CNTL-C FOR ABORT. 


END IF 


ft 

5 SET DISK SECTOR NUMBER. 

ft 

7 

79 SETSECs MOV A,C 5 GET SECTOR NUMBER. 

32194D STA SECT 5 PUT AT SECT # ADDRESS. 

C9 RET 5 RETURN FROM SETSEC. 

? 

;TRANSLATE THE SECTOR GIVEN B,C 
5 USING THE TRANSLATE TABLE 
sRTVFN BY n.F 


SECTRAN 


4000 
4C01 
4C02 
4C03 
4 COS 


4006 

4C07 

4C08 

4C0B 


40 OC 
4C0F 
4C10 
4013 
4C14 


4017 

4019 
4C1B 
401D 
4C1F 
4021 
4C23 
4024 
4C26 
4028 
4C2B 

4020 


4C2D 

4C.2F 

4032 

4C34 

4036 

4C38 

4039 
4C3C 
4C3E 
4C3F 

4040 
4C43 


4045 

4047 

4C48 

4C4B 

4C4E 

4C4F 


EB 

XCHG 


;h,l = 

TRANS 


09 

DAD 

B 

? H, L — 

TRANS 

(SECTOR) 

6E 

MOV 

L, M 

; L = 

TRANS 

(SECTOR) 

2600 

MV I 

H, 0 

;CLEAR 

REG H 


09 

RET 


;H,L = 

TRANSLATED SECTOR 


5 SET DISK DMA ADDRESS. 


60 

SETDMAs 

MOV 

H, B 

5 MOVE B8<0 TO H&L. 

69 


MOV 

L,C 


221A4D 


SHLD DMAADD 

5 PUT AT DMA ADR ADDRE 

09 

* 

RET 


5 RETURN FROM SETDMA. 


? HOLD ■ 

ft 

- GET 

HEAD-LOAD 

BIT IF REQUIRED. 

3A1F4D 

7 

HOLD: 

LDA 

HLSF 

;GET HEAD-LOAD FLAG. 

B7 


ORA 

A 

» IS A = ZERO? 

CA244C 


.JZ 

HDLD1 

;HOP IF SO. 

2F 


CMA 


;SET A * 0. 

321F4D 


STA 

HLSF 

;SET FLAG = 0 IF NOT. 


;IF CHANGING TO A NEW DRIVE, PERFORM A SEEK TO 
5 THE SAME TRACK TO ALLOW THE HEAD TO UNLOAD. 


DBF9 


IN 

TRACK 

;GET PRESENT TRACK 

D3FB 


OUT 

DDATA 

5 AND TELL 1771 ABOUT IT. 

3E1D 


MV I 

A,14H+S 

TPRAT+HLAB 5GET THE STEP RATE. 

D3F8 


OUT 

DCOM 

5 SEND IT TO FLOPPY CONTROLLER 

DBFC 


IN 

WAIT 

;WAIT FOR INTRQ. 

3E04 

HDLDY: 

MV I 

A, 4 

?SET BIT TO LOAD HEAD. 

09 


RET 


?RETURN FROM HOLD. 

DBFS 

HOLD 1: 

IN 

DSTAT 

5READ 1771 STATUS. 

E620 


AN I 

20H 

!LOOK AT HL BIT. 

0A214C 


JZ 

HDLDY 

;load if not loaded. 

AF 


XRA 

A 

;OTHERWISE, A=0. 

09 


RET 


5 RETURN FROM HOLD. 


; READ THE SECTOR AT SECT, FROM THE PRESENT TRACK. 
; USE STARTING ADDRESS AT DMAADD. 


3E0A 

READ: 

MV I 

A, RTCNT 

5 GET RETRY COUNT. 


RRETRY: 




CD9C4C 


CALL 

DSKSET 

5 SET UP DISK. 

0688 


ADI 

88H 

;ADD CODE FOR READ SECT. 

D3F8 

READE: 

OUT 

DCOM 

? SEND COMMAND TO 1771. 

DBFC 

RLGOP: 

IN 

WAIT 

;WAIT FOR DRQ OR INTRQ. 

B7 


ORA 

A 

5 SET FLAGS. 

F2434C 


JP 

RDDONE 

!DONE IF INTRQ. 

DBFB 


IN 

DDATA 

5READ A DATA BYTE FROM DISK 

77 


MOV 

M, A 

"PUT BYTE INTO MEMORY. 

23 


INX 

H 

;INCREMENT MEMORY POINTER. 

033640 


JMP 

RLOOP 

5 KEEP READING. 

DBFS 

RDDONE: 

IN 

DSTAT 

5READ DISK STATUS. 



IF 

INTRP 

5 IF INTERRUPTS ALLOWED, 



El 


»ALLOW AGAIN HERE. 



END IF 


E69D 


AN I 

9DH 

;LOOK AT ERROR BITS. 

08 


RZ 


;RETURN IF NONE. 

CD674C 


CALL 

ERCHK 

5 CHECK FOR SEEK ERROR. 

3A254D 


LDA 

ERCNT 

5 GET ERROR COUNT. 

3D 


DOR 

A 

;DECREMENT COUNT. 

C22F4C 


JNZ 

RRETRY 

5 TRY TO READ AGAIN. 


4C52 CD584C CALL RECOV SCHECK FOR ABORT OR CONTINUE 

4C55 C32D4C JMP READ {IF NOT CNTL-C, TRY TO READ AGAIN. 

7 

;RECOV 

?THIS ROUTINE IS CALLED BY ANY READ,WRITE,SEEK 
5ROUTINE IF THE RETRY COUNT GOES TO 10. IF IT 
iDOES,THIS ROUTINE CALLS CONIN FOR A KEY TO BE 
5 PUSHED. IF THE KEY IS A CNTL-C, THEN A WARMBOOT 
5IS EXECUTED. IF ANY OTHER KEY IS PUSHED, THEN 

;a return is made back to THE caller and that 

{ROUTINE IS RETRIED FOR 10 MORE TIMES. 


4C58 

21E74C 

RECOVs 

LXI 

H,ERRM 

SO {POINT TO "ERROR" MESSAGE. 

4C5B 

CDDC4C 


CALL 

PMSG 

{PRINT IT ON CONSOL. 

4C5E 

CU514B 


CALL 

CON IN 

{CHECK FOR PUSHED KEY. 

4C61 

FE03 


CPI 

OSH 

{IS IT A CNTL-C ? 

4C63 

CO 


RNZ 


{RETURN TO CALLER IF NOT. 

4C64 

C3EF4A 

m 

JMP 

WBOOT 

{YES, DO WARMBOOT. 



? 

{ ERCHK 
* 

- CHECK FOR 

RECORD NOT FOUND ERROR. 

4C67 

57 

ERCHKs 

MOV 

D, A 

{SAVE ERROR BITS IN D. 

4C68 

E610 


ANI 

10H 

{IF RECORD NOT FOUND, 

4C6A 

C2704C 


JNZ 

CHKSK 

{DO A CHECK ON SEEK. 

4C6D 

7A 


MOV 

A, D 

{OTHERWISE RESTORE BITS 

4C6E 

B7 


ORA 

A 

{SET FLAGS, 

4C6F 

C9 


RET 


{AND RETURN. 



*, CHECK 

FOR S 

EEK TO 

CORRECT TRACK, 



{AND CHANGE 

IF NECE 

SSARY. 

4C70 

3EC4 

CHKSK 5 

MVI 

A,0C4H 

{SEND COMMAND TO 1771 

4C72 

D3F8 


OUT 

DCOM 

{TO READ ADDRESS. 

4074 

DBFC 


IN 

WAIT 

{WAIT FOR DRQ OR INTRQ. 

4C76 

DBFS 


IN 

DD AT A 

{READ THE TRACK ADDRESS. 

4C78 

47 


MOV 

B, A 

{SAVE IN REGISTER B. 

4C79 

DBFC 

CHKS2J 

IN 

WAIT 

{WAIT FOR INTRQ. 

4C7B 

B7 


ORA 

A 

{SET FLAGS. 

4C7C 

F2844C 


JP 

CHKS3 

{DONE WITH READ ADR OP. 

4C7F 

DBFB 


IN 

DDATA 

{READ ANOTHER BYTE. 

4C81 

C3794C 


JMP 

CHKS2 

{DO IT AGAIN. 

4C84 

DBFS 

CHKS3: 

IN 

DSTAT 

{READ DISK STATUS. 

4C86 

B7 


ORA 

A 

{SET FLAGS. 

4C87 

CA904C 


JZ 

CHKS4 

{READ ADR OK IF 0. 

4C8A 

CDA34B 


CALL 

HOME 

{OTHERWISE, HOME FIRST. 

4C8D 

C3934C 


JMP 

CHKS5 


4C90 

78 

CHKS4 s 

MOV 

A, B 

{UPDATE TRACK REGISTER. 

4091 

D3F9 


OUT 

TRACK 


4C93 

3A184D 

CHKS5 s 

LDA 

TRK 

{GET REQUIRED TRACK NO. 

4096 

CDBE4B 


CALL 

SEEK 

{MOVE THE HEAD TO IT. 

4C99 

7A 


MOV 

A, D 

{GET ERROR BITS. 

4C9A 

B7 


ORA 

A 

{SET FLAGS. 

4C9B 

09 


RET 


{RETURN FROM ERCHK. 


7 

{DISK SET UP ROUTINE. 

{THIS ROUTINE IS COMMON TO 
{BOTH THE READ AND WRITE 
{ROUTINES. 


7 

DSKSET: 


4C9C 

32254D 

STA 

ERCNT 

{STORE IN ERROR CTR. 

4C9F 

3 ED 0 

MVI 

A,ODOH 

{CAUSE INTERRUPT. 

4CA1 

D3F8 

OUT 

DCOM 


4CA3 

E3 

XTHL 


{SOME 

4CA4 

E3 

XTHL 


{ DELAY 


IF INTRP 

tl'i 


IF INTERRUPTS ALLOWED 
DISABLE THEM HERE. 


END IF 


4CA5 

2A1A4D 

LHLD 

DMAADD 

5 GET STARTING ADDR. 

4CA8 

3A194D 

LDA 

SECT 

j GET SECTOR NUMBER. 

4CAB 

D3FA 

OUT 

SECTP 

» SET SECTOR INTO 1771. 

4CAD 

CD0C4C 

CALL 

HOLD 

? GET HEAD-LOAD BIT? 

4CBO 

C9 

RET 


5 RETURN TO CALLER 



? 

; WRITE THE 

SECTOR AT 

SECT, ON THE PRESENT TRACK. 



! USE STARTING ADDRESS 

• 

AT DMAADD. 

4CB1 

3E0A 

* 

WRITE: MVI 

A, RTCNT 

?GET RETRY COUNT. 



WRETRY: 



4CB3 

CD9C4C 

CALL 

DSKSET 

5 SET UP DISK. 

4CB6 

C6A8 

ADI 

0A8H 

5 ADD CODE FOR WRITE. 

4CBG 

B3F8 

WRITE2: OUT 

DCOM 


4CBA 

DBFC 

WLOQP: IN 

WAIT 

5 WAIT FOR READY. 

4CBC 

B7 

ORA 

A 

5 SET FLAGS. 

4CBD 

F2C74C 

UP 

WDONE 

j HOP OUT WHEN DONE. 

4CCO 

7E 

MOV 

A,M 

5GET BYTE FROM MEM. 

4CC1 

D3FB 

OUT 

DDATA 

;WRITE ONTO DISK. 

4CC3 

**~i 

INX 

H 

5 INCREMENT MEM PTR. 

4CC4 

C3BA4C 

JMP 

WLOOP 

5 KEEP WRITING. 

4CC7 

DBFS 

WDONE: IN 

DSTAT 

5 READ DISK STATUS. 



IF 

INTRP 

5 IF INTERRUPTS ALLOWED, 



tl 


;ENABLE AGAIN HERE. 



END IF 


4CC9 

E6FD 

AN I 

OFDH 

5 LOOK AT THESE BITS. 

4CCB 

C8 

R2 


5RETURN IF NO ERR. 

4CCC 

CD674C 

CALL 

ERCHK 

;CHECK/CORRECT SEEK ERR. 

4CCF 

3A254D 

LDA 

ERCNT 

5GET ERROR COUNT. 

4CD2 

3D 

DCR 

A 

5DECREMENT COUNT. 

4CD3 

C2B34C 

JNZ 

WRETRY 

5 TRY TO WRITE AGAIN. 

4CD6 

CD584C 

CALL 

RECOV 

;CHECK FOR ABORT 

4CD9 

C3B14C 

•JMP 

WRITE 

;RETRY WRITE AGAIN. 



» 

; PRINT THE 

a» 

MESSAGE AT 

H§<L UNTIL A ZERO. 

4CDC 

7E 

7 

PMSGs MOV 

A,M 

;GET A CHARACTER. 

4CDD 

B7 

ORA 

A 

5 IF IT'S ZERO, 

4CDE 

C8 

RZ 


5 RETURN. 

4CDF 

4F 

MOV 

C,A 

5 OTHERWISE, 

4CEO 

CD5D4B 

CALL CONOT 

5 PRINT IT. 

4CE3 

23 

INX 

H 

?INCREMENT H&L, 

4CE4 

C3DC4C 

JMP 

PMSG 

;AND GET ANOTHER. 



? CBIOS MESSi 

« 

ages 


4CE7 

7 

4552524F52ERRMSG! DB 

- ERROR. •-, 

0 

4CEE 

0D0A546172SMSG: DB 

ODH,OAH, •' 

Tar-be 11 ' 

4CF8 

3230 

DB 

MSIZE/10+ 

“O',MSIZE MOD 10 + -0' 

4CFA 

4B20435 

04D DB 

tt 

-K CPM 2. 

2 ', 0 



7 

!LIST STATUS 

CHECK ROUTINE 



5 

PRSTAT: 



4D04 

DB02 

IN 

LSTAT 

5CHECK LIST STATUS PORT 

4D06 

E602 

AN I 

LRBIT 

5 MASK AND CHECK READY BIT 

4008 

C34C4B 

.JMP 

CONST1 

?FINISH IN THE CONST ROUTINE 


5 WRITE A CHARACTER ON LISTING DEVICE. 



IF LSTNUL 
MVI A, ODH 
CMP C 
JZ LINUL 
END IF 


5 IF NULLS OR PAGING, 
5 IF IT'S A CR, 

3THEN HOP OUT TO 
5 NULL ROUTINE. 


IF LSTPAG 
MVI A,OAH 
CMP C 
JZ LINUL3 
END IF 


SIF PAGING 
?GET a LINEFEED 
;DOES IT MATCH? 


4D0B 

DB02 

LTBSYs IN 

LSTAT 

S READ 

LISTER STATUS. 



IF 1 

NOT DELTA 



4D0D 

E602 

AN I 

LRBIT 

5 LOOK 

AT READY BIT. 



ENDIF 





IR¬ 

DELTA 





ANI 

81H 

S LOOK 

AT BITS 7 AND 0 



XRI 

81H 

5 BOTH 

MUST BE ONES TO 



JNZ 

LTBSY 

5 LOOP 

TILL ONES 


ENDIF 


IF NOT DELTA 
JNZ LTBSY 
ENDIF 


AND RDYLO 

SLOOP TILL LOW. 


IF NOT DELTA AND RDYHI 


4D0F 

CA0B4D 


JZ 

LTBSY 

SLOOP TILL HIGH. 




ENDIF 


4D12 

79 


MOV 

A, C 

5 GET DATA BYTE. 

42J13 

D303 


OUT 

LDATA 

SPRINT IT. 

4D15 

C9 


RET 


5 RETURN FROM LIST. 




IF LSTNUL 

5 IF LIST NULLS 



LINUL: 

PUSH 

B 

5 SAVE B8/.C. 




MVI 

B, (LNULL AND OFFH) + l 5 GET NULL COUNT 



LINULis 

CALL 

LTBSY 

SPRINT (CR FIRST). 




MVI 

C, 0 

5 GET NULL CHAR. 




DCR 

B 

5 DECREMENT COUNTER. 




JNZ 

LINUL1 

5 DO NEXT NULL. 




JMP 

LINUL2 

5 EX IT THE ROUTINE. 




ENDIF 





IF 

LSTPAG 

5 IF LIST DEV. PAGING, 



LINUL3S 

PUSH 

B 

5 SAVE B,C PAIR 




LDA 

LFCNT 

5 GET LINE-FEED COUNT. 




I NR 

A 

5 INCREMENT IT. 




STA 

LFCNT 

5SAVE IT BACK. 




CPI 

LINCNT- 

(LINCNT/11) SEND OF PAGE? 




MVI 

B, 1 

5 SET UP FOR 1 LF. 




JNZ 

NOTEOP 

SHOP IF NOT END. 




XRA 

A 

5 SET LF COUNT = 0. 




STA 

LFCNT 





MVI 

B,(LINCNT/11)+l SBETWEEN PAGES. 



NOTEOP* 

MVI 

C, OAH 

3GET LINE-FEED CODE. 



USTPAl: 

CALL 

LTBSY 

SPRINT LINE-FEED. 




DCR 

B 

3 DECREMENT LF COUNTER. 




JNZ 

LSTPA1 

5DO NEXT LINE FEED? 




ENDIF 





IF U 

5TNUL OR 

LSTPAG 5 IF NULLS OR PAGING, 



L. INUL^*» 

POP 

B 

3 RESTORE B&C. 


MOV A,C 


SRESTORE A. 





RET 


5 RETURN FROM LIST. 


€ 



END IF 


€ 

€ 


* 

7 

; PUNCH 

n 

PAPER TAPE. 


t 



7 

PUNCH: 





€ 

4D16 C9 

at 

RET 


?RETURN FROM PUNCH. 

f 

€ 


7 

; NORMALLY 
*• 

USED TO READ PAPER TAPE. 

g 



7 

READERS 





m 

4D17 C9 


RET 


$ RETURN FROM READER. 

g 



5 NOTE: 

AS THERE ARE ONLY SIX (6) SECTORS 

m 



;AVAILABLE FOR CBIOS ON 

THE SECOND SYSTEM TRACK (1), 


c 


5 THE LAST ADDRESS BEFORE THIS POINT SHOULD BE NO 

f 



5GREATER THAN THE CBIOS 

STARTING ADDRESS + 037F (HEX). 


€ 


5 THIS WILL NORMALLY BE ! 

XD7F (HEX). 

c 



■ 

7 

; BIOS 5 

SCRATCH AREA. 



g 






M- 

% 


5 




1 


4018 

TRK: 

DS 

i 

5 CURRENT TRACK NUMBER. 



4D19 

SECT: 

DS 

1 

5 CURRENT SECTOR NUMBER. 


€ 

401A 

DMAADDs 

at 

DS 

2 

5DISK TRANSFER ADDRESS. 

f 

MS,- ... 


7 

5 THE NEXT S 

EVERAL BYTE: 

5. BETWEEN STARTZ AND 


f 


5 END2 > 

ARE 

SET TO ZERO 

AT COLD BOOT TIME. 




STARTZs 



5 START OF ZEROED AREA. 


€ 

4D1C 

DISKNOs 

DS 

1 

5 DISK NUMBER 

• 


4D1D 

F'DISKs 

DS 

2 

?NEW DISK TO SELECT AND A ZERO BY 

TE 

( 


5 SPECIAL FLAGS. 


• 


4D1F 

HLSFs 

DS 

1 

?HEAD-LOAD SELECT FLAG. 


c 

4D20 

LFCNTs 

H 

DS 

1 

? PAGING LINE-FEED COUNT. 

i 



7 

? TRTAB 

- DI 

SK TRACK TABLE - PRESENT POSITION OF 


f 


• 

7 

* 

HEAD 

S FOR UP TO 

4 DRIVES. 

f 


4D21 

7 

TRTAB: 

DS 

4 


m. 

« 


ENDZs 



jEND OF ZEROED AREA. 

€ 


4D25 

ERCNTs 

DS 

1 

;ERROR COUNT FOR RETRIES. 


i 

4D26 

SERCNTs 

DS 

1 

j SEEK RETRY COUNTER. 

€ 


4D27 

TEMP: 

DS 

1 

!TEMPORARY STORAGE. 



4D28 

LATCH: 

DS 

1 

?NEW CODE FOR LATCH. 


f 

4D29 

CLATCH: 

DS 

1 

?CURRENT CODE IN LATCH. 

€ 


4D2A = 

BEGDAT 

EQU 

% 



Mtt* 

4D2A 

DIRBUFs 

DS 

128 

;DIRECTORY BUFFER 


i 

4DAA 

ALVOs 

DS 

31 


€ 


4DC9 

CS VO s 

DS 

16 




4DD9 

ALVls 

DS 

31 



c 

4DF8 

CSV is 

Do 

16 


i 


4E08 

ALV2S 

DS 

31 




4E27 

CSV2: 

DS 

16 



€ 

4E37 

ALV3: 

DS 

31 


< 


4E56 

CSV3: 

DS 

16 




4E66 * 

ENDDAT 

EQU 

% 



€ 

013C = 

DATS IZ 

EQU 

BEGDAT 

5 TOTAL SIZE OF DISK FARM 

STOR^ 


4E66 


END 




• 

A> 





€ 



; TARBELL ELECTRONICS 
5 CP/M COLDS!ART LOADER 
5 VERSION OF 3-22-'79. 

II 

7 

3 THIS PROGRAM IS LOADED AT LOCATION ZERO 
5 BY THE BOOTSTRAP PROGRAM, AND EXECUTED. 

; ITS PURPOSE IS TO LOAD AND EXECUTE THE 
5 CP/M DISK OPERATING SYSTEM AT THE TOP 
; OF THE MEMORY IN USE. 

? 

OOOO = FALSE EQU 0 3 DEFINE VALUE OF FALSE. 

FFFF = TRUE EQU NOT FALSE 5DEFINE VALUE OF TRUE. 

It 

7 

5THIy IS THE AFa'EA TU MAKE CHANuEy IN -ft*## 
;*****•*#*« FOR DIFFERENT SYSTEM CONFIGURATIONS #*******■»■■*■»• 



7 





0014 = 

MSI ZE 

EQU 

20 

5 MEMORY SIZE IN DECIMAL KB. 


oooo = 

DELTA 

EQU 

FALSE 

5 TRUE IF DELTA PRODUCTS CPU 

#*5fr 

0000 = 

PERSCI 

EQU 

FALSE 

5 TRUE FOR PERSCI DRIVES. 


oooo = 

DUBSID 

EQU 

FALSE 

;TRUE FOR DOUBLE SIDED SYSTEMS. 


001 A = 

SPT 

EQU 

26 

5 NUMBER OF SECTORS PER TRACK. 

#55* 

ii 

to 

U- 

o 

DISK 

EQU 

0F8H 

5DISK PORT BASE ADDRESS. 



n 

7 




•ft# 


ft###*####* 


OOFS 


DCOM 

EQU 

DISK 

?COMMAND PORT. 

OOFS 

— 

DSTAT 

EQU 

DISK 

5 STATUS PORT. 

0OF9 


TRACK 

EQU 

DISK+1 

5 TRACK PORT. 

OOFA 


SECT 

EQU 

DISK+2 

?SECTOR PORT. 

OOFB 

=s 

DATA 

EQU 

DISK+3 

5 DATA PORT. 

OOFC 


WAIT 

EQU 

DISK+4 

5 WAIT PORT. 

OOFC 

= 

DCONT 

EQU 

DISK+4 

5 CONTROL PORT. 

OOOO 

— 

CBASE 

EQU 

(MSIZ E-20)*1024 

3400 

ss 

CPMB 

EQU 

CBASE+3400H 

I; START OF CP/M. 

4A00 


BOOTE 

EQU 

CPMB+1600H 

;COLD BOOT ENTRY POINT. 

0033 

SS 

NSECTS 

EQU 

51 

3 SECTORS OF CP/M. 

OOOA 

= 

RTCNT 

EQU 

10 

3 NUMBER OF RETRYS. 

OOOO 



ORG 

0 

5 START OF LOADER. 

OOOO 

1E0A 

BOOT: 

MV I 

E,RTCNT 

5 GET RETRY COUNT. 




IF 

DELTA 

5 IF USING DELTA PRODUCTS CPU. 




MV I 

A, 1 

5 CODE TO KICK OUT ROM 




OUT 

9 





END IF 


0002 

310001 

BLOOP: 

LX I 

SP,100H 

3 SET STACK POINTER. 

0005 

210034 


LX I 

H,CPMB 

3 CP/M STARTS HERE. 

0008 

1633 


MV I 

D,NSECTS 

3 NUMBER OF SECTORS TO READ. 

OOOA 

0E02 


MV I 

C, 2 

3 SECTOR NUMBER. 

OOOC 

0604 

RNTRK: 

MV I 

B, 4 

3FOR HEAD LOAD. 

OOOE 

79 


MOV 

A, C 

5 SECTOR IN A. 

OOOF 

CD2A00 

RNSEC: 

CALL 

READ 

5 READ FIRST SECTOR. 

0012 

15 


DCR 

D 

5 IF DONE, 

0013 

CA004A 


JZ 

BOOTE 

3 GO TO CP/M. 

0016 

0600 


MV I 

B, 0 

3 FOR NO HEAD LOAD. 

0018 

OC 


I NR 

C 

5 INCREMENT TRACK COUNT. 

0019 

79 


MOV 

A, C 

5 DONE WITH 

001A 

FE1B 


CPI 

SPT-+ 1 

5 THIS TRACK? 

001C 

DAOFOO 


JC 

RNSEC 

5 IF NOT, READ NEXT SECTOR. 


00 IF 

3E53 


MV I 

A j 53H 

5 STEP COMMAND. 

0021 

D3F8 


OUT 

DCOM 

?ISSUE IT. 

0023 

DBFC 


IN 

WAIT 

;WAIT UNTIL DONE. 




END IF 





IF 

PERSCI 

AND NOT DUBSID 




MV I 

A j 50H 

5 INCREMENT TRACK 




OUT 

DCOM 

5 REGISTER. 




IN 

WAIT 

5 WAIT FOR INTRQ. 




MV I 

A, 1 

5 STEP 




our 

DCONT 

5PERSCI. 




MV I 

A,72H 

5 SWITCH WAIT FOR 




OUT 

DCONT 

5SEEK COMPLETE. 




IN 

WAIT 

;WAIT. 




MV I 

Aj0F2H 

;SWITCH WAIT 




OUT 

DCONT 

5 BACK. 




END IF 





IF 

DUBSID 

5 IF DOUBLE SIDED SYSTEM 




MV I 

A,0B2H 

5SIDE SELECT COMMAND. 




OUT 

DCONT 

5 ISSUE IT. 




END IF 


0025 

0E01 


MV I 

C* 1 

5SECTOR NUMBER. 

0027 

C30C00 


JMP 

RNTRK 

5READ NEXT TRACK. 

002A 

D3FA 

READ: 

OUT 

SECT 

5SET SECTOR REGISTER. 

002C 

CD4100 


CALL 

CHECK 

5 CHECK FOR ERROR. 

0O2F 

3E88 


MV I 

A v 88H 

5 COMMAND FOR READ. 

0031 

BO 


ORA 

B 

5GET HEAD LOAD BIT. 

0032 

D3F8 


OUT 

DCOM 

?ISSUE COMMAND. 

0034 

DBFC 

RLOOP: 

IN 

WAIT 

5 WAIT FOR DRQ. 

0036 

B7 


ORA 

A 

;SET FLAGS. 

0037 

F24100 


UP 

CHECK 

5JUMP IF DONE. 

003A 

DBFB 


IN 

DATA 

jREAD DATA. 

003C 

77 


MOV 

M, A 

?PUT IN MEMORY. 

0O3D 

23 


INX 

H 

5 INCREMENT POINTER. 

003E 

C33400 


JMP 

RLOOP 

5 LOOP UNTIL DONE. 

0041 

DBFS 

CHECK: 

IN 

DSTAT 

5 READ STATUS. 

0043 

E69D 


AN I 

9DH 

;LOOK AT ERROR BITS. 

0045 

C8 


RZ 


5OK IF ZERO. 

0046 

ID 


DCR 

E 

;DECREMENT RETRY COUNT. 

0047 

C20200 


•JNZ 

BLOOP 

? TRY AGAIN IF NOT ZERO. 

004A 

328000 


STA 

EC 

5 SAVE ERROR CODE. 

0O4D 

2F 


CMA 


5 INVERT AND SEND 

004E 

D3FF 


OUT 

OFFH 

5 TO FRONT PANEL. 

0050 

C35000 

HERE: 

JMP 

HERE 

;LOOP. 

007D 



ORG 

7DH 

?PUT JUMP HERE. 

0O7D 

C30000 


JMP 

BOOT 

5 JUMP INTO BOOT. 

0080 


EC: 

END 


5 END OF BOOT. 



cp/m basic input/output operating system (bios) 

tarbell electronics 

2.x version of 01-29-82 

copyright (c) 1980 tarbell electronics 


; this bios module is the cpm v2.x auto select bios. 

; this bios reads single or double density disk. 

; the double density disk contains 51 sectors/track, 

; 77 tracks, track 0 = single density, tracks 1-76 
; are double density at 51 sectors per track. 

; note: if you leave dmacntl false, you must have a cpu 
; which runs at 4 mhz to run double density. 

; this bios now supports double sided single/double density. 
; this section defines the i/o ports and status bits. 

; by setting the proper values for the equ statements, 

; the i/o may be automatically reconfigured to fit most 
; situations, the true and false ones control conditional 
; assemblies of different sections of i/o routines to fit 

; different interface requirements. 

• 

9 

TRUE EQU OFFFFH ;define value of true. 

FALSE EQU NOT TRUE ;define value of false. 

9 

**************************************************** 

;*** this begins the area which requires changes *** 

;*** for different console i/o systems *** 

**************************************************** 


MSIZE 

EQU 

64 


^memory size in kbytes. 

INTRP 

EQU 

FALSE 


rtrue if interrupts allowed. 

TARBELL 

EQU 

FALSE 


rtrue if using the tarbell z-80 cpu. 

IOBASE 

EQU 

0 


rbase io addr for tarbell cpu (0 or 10 hex). 

TIMER 

EQU 

FALSE 


rtrue if using cpu timer (tarbell cpu board). 

STD 

EQU 

FALSE 


rtrue if standard i/o. 

MS 102 

EQU 

FALSE 


•true if mits 2sio. 

VDB8024 

EQU 

FALSE 


rtrue if using vdb-8024 board. 

DELTA 

EQU 

FALSE 


rtrue if using delta products cpu. 

ISI02 

EQU 

TRUE 


rtrue if imsai sio-2. 

TUART 

EQU 

FALSE 


rtrue if cromemco tuart. 

VIDEO 

EQU 

FALSE 


rtrue if using a memory mapped video board. 

OTHER 

EQU 

FALSE 


■true if something else. 

SOLOS 

EQU 

FALSE 


•true if proc tech solos. 

DUBSID 

EQU 

FALSE 


•true for double sided drives (1 logical drive 

DMACNTL 

EQU 

TRUE 


true if using dma control. 

NDISK 

EQU 

4 


■defines the number drives in system. 

RDYLO 

EQU 

STD OR 

SOLOS OR OTHER ;status ready when low. 

RDYHI 

EQU 

NOT RDYLO 


TARDEL 

EQU 

TARBELL 

OR DELTA ;if using tarbell or delta cpu. 

7 

IF 

VIDEO 

\ 

■if using a video board 

OUTADDR 

EQU 00000H 
ENDIF 

\ 

•put output address here 

7 

IF NOT SOLOS 

AND 

NOT TARDEL ;if not proc tech solos. 

CSTAT 

EQU 

3 


console status port. 

CCOM 

EQU 

3 


console command port. 

CDATA 

EQU 

2 


console data port. 

LSTAT 

EQU 

5 


list status port. 

LCOM 

EQU 

5 


list command port. 

LDATA 

EQU 4 

ENDIF 


list data port. 







CONUL 

fsyu 

FALSE 

; console nunsv 

CNULL 

EQU 

16 

;console null count. 

LSTNUL 

EQU 

FALSE 

;list device nulls? 

LNULL 

EQU 

0 

;list null count. 

LSTPAG 

EQU 

FALSE 

;list device paging? 

LINCNT 

EQU 

66 

;lines per page. 

HLAB 

EQU 

8 

;8 for hd Id at beg of seek. 

STPRAT 

EQU 

1 

;rate 0=3ms,l=6ms, 2=10ms, 3=20ms. 

DUAL 

EQU 

FALSE 

;true if dual headed (2 heads moving together) 


******************************************************* 
*** this is the end of the area which normally need *** 
*** be changed for most console i/o systems *** 

******************************************************* 



IF 

TARDEL ;if using tarbell or delta cpu 

CCOM 

EQU 

IOBASE+1 ;console 

command port 

CSTAT 

EQU 

IOBASE+1 ;console 

status port ( chan a.) 

CDATA 

EQU 

IOBASE+O ;console 

data port 

LOOM 

EQU 

IOBASE+3 ;list 

command port 

LSTAT 

EQU 

IOBASE+3 ;list 

status port (chan b.) 

LDATA 

EQU 

IOBASE+2 ;list 

data port 


ENDIF 



7 

IF 

TIMER AND TARBELL ;must be using tarbell 

7 

; timer 

• 

equates 



TCHO 

EQU 

IOBASE+4 


timer chan 0 address 

TCH1 

EQU 

IOBASE+5 


timer chan 1 address 

TCH2 

EQU 

IOBASE+6 


timer chan 2 address 

TCMND 

EQU 

IOBASE+7 


timer command port 

IMASK 

EQU 

IOBASE+8 


interrupt masking port 

CNTRO 

EQU 

00000000B 


counter 0 

CNTR1 

EQU 

01000000B 


counter 1 

CNTR2 

EQU 

10000000B 


counter 2 

RLWORD 

EQU 

00110000B 


read/load lsb 1st, msb 2nd. 

RLHBYTE 

EQU 

00100000B 


read/load msb only. 

RLLBYTE 

EQU 

00010000B 


read/load lsb only. 

CNTRLT 

EQU 

00000000B 


counter latching operation. 

BINARY 

EQU 

OOOOOOOOB 


select binary operation. 

BCD 

EQU 

00000001B 


select bed operation. 

MODEO 

EQU 

OOOOOOOOB 


interrupt on terminal count. 

MODE1 

EQU 

00000010B 


programmable one-shot. 

MODE 2 

EQU 

00000100B 


rate generator. 

MODE 3 

EQU 

00000110B 


square wave rate generator. 

MODE 4 

EQU 

00001000B 


software triggered strobe. 

MODE 5 

EQU 

00001010B 


hardware triggered strobe. 


ENDIF 



7 

IF 

SOLOS 


if proc tech solos. 

CSTAT 

EQU 

OFAH 


console status port. 

KBD 

EQU 

0C02EH 


solos keyboard. 

CLRSCR 

EQU 

0C0D5H 


clear screen. 

SCRN 

EQU 

0C054H 


solos output. 


ENDIF 



7 

IF NOT SOLOS 


if not proc tech solos. 

DMAP 

EQU 

OEOH 


dma base address. 

DISK 

EQU 

0F8H 


disk base address. 


ENDIF 




7 

IF SOLOS 


if proc tech solos. 

DMAP 

EQU 

060H 


dma base address. 

DISK 

EQU 

078H 


different disk ports. 


ENDIF 










ADRO 

EQU 

DMAP+0 

WCTO 

EQU 

DMAP+1 

CMND 

EQU 

DMAP+8 

DCOM 

EQU 

DISK 

DSTAT 

EQU 

DISK 

TRACK 

EQU 

DISK+1 

SECTP 

EQU 

DISK+2 

DDATA 

EQU 

DISK+3 

WAIT 

EQU 

DISK+4 

DCONT 

EQU 

DISK+4 

DMACHK 

EQU 

DISK+5 

RTCNT 

EQU 

10 

7 

IF 

STD 

CKBR 

EQU 

00000001B 

CPTR 

EQU 

10000000B 


ENDIF 

7 

IF 

MS 102 

CKBR 

EQU 

00000001B 

CPTR 

EQU 

00000010B 


ENDIF 

7 

IF 

VDB8024 

CKBR 

EQU 

00000010B 

CPTR 

EQU 

00000100B 


ENDIF 

7 

IF 

ISI02 

CKBR 

EQU 

00000010B 

CPTR 

EQU 

00000001B 


ENDIF 

7 

IF 

TARDEL 

CKBR 

EQU 

00000010B 

CPTR 

EQU 

00000001B 


ENDIF 

7 

IF 

TUART 

CKBR 

EQU 

01000000B 

CPTR 

EQU 

10000000B 


ENDIF 

7 

IF 

SOLOS 

CKBR 

EQU 

00000001B 

CPTR 

EQU 

10000000B 


ENDIF 

7 

IF 

OTHER 

CKBR 

EQU 

00000010B 

CPTR 

EQU 

10000000B 


ENDIF 

LRBIT 

EQU 

CPTR 

IOBYTE 

EQU 

3 

CBASE 

EQU 

(MSIZE-20)*1024 

CPMB 

EQU 

CBASE+3400H 

BDOS 

EQU 

CPMB+806H 

BIOS 

EQU 

CPMB+1600H 

CDISK 

EQU 

4 

NSECTS 

EQU 

17 

7 

ORG 

CPMB+8 


;dma address reg port. 

/dma word count reg port. 
;dma command port. 

;disk command port. 

/disk status port. 

;disk track port. 

;disk sector port. 

;disk data port. 

;disk wait port. 

;disk control port. 

;dma check port. 

; retry count. 

;if standard i/o, 

;keyboard ready bit. 

;cons output rdy bit. 


;if mits 2sio, 

;keyboard ready bit. 
;print ready bit. 


;if vdb-8024 board. 

;keyboard ready bit. 
/cons output rdy bit. 


; keyboard ready bit. 
/print ready bit. 


;keyboard ready bit. 
/print ready bit. 


;if cromemco tuart, 

;keyboard ready bit. 
;print ready bit. 


;if proc tech solos, 
;keyboard ready bit. 
; dummy equ. 


;if something else, 

;keyboard ready bit. 
;printer ready bit. 


;lister ready bit. 

/address of i/o byte. 

/bias for larger than 20k. 
/start of cpm 2.0 
/start of bdos 2.0. 

/start of cbios io. 
/location 4 is current disk 
/number of sectors in it. 





ujb uuJti, UAn r ' xcii uexx 

DB MSIZE/10+'0',MSIZE MOD 10+'0' 
DB 'K CPM 2.2',ODH,OAH 
DB 'Auto-Select ' 

IF DUBSID 
DB 'Double Sided ' 

ENDIF 

DB 'ver of 01-29-82* ,0 


; boot 

; this section is executed whenever reset and run 
; is pushed, after the coldstart loader reads in 
; the cpm system. 

/ 

BOOT: LXI SP,80H ;set stack pointer. 

IF INTRP AND NOT DMACNTL;if interrupts allowed, 
El ;enable them here. 

ENDIF 


IF 

MS 102 

MVI 

A,3 

OUT 

CCOM 

OUT 

LCOM 

MVI 

A, 11H 

OUT 

CCOM 

OUT 

LCOM 

ENDIF 


;if mits 2sio, 
;initialize 2sio. 


INITIO: 


IT1: 


IF 

TARDEL OR IS102 

LXI 

H,IOINIT 

MVI 

B, 4 

MOV 

A,M 

OUT 

CCOM 

OUT 

LCOM 

INX 

H 

DCR 

B 

JNZ 

INITIO 

ENDIF 

IF 

TUART 

MVI 

A, 1 

OUT 

54H 

OUT 

52H 

LXI 

H,BAUDRS 

MVI 

A, 11H 

OUT 

02H 

MOV 

A ,M 

INX 

H 

OUT 

0 

CALL 

CON IN 

CALL 

CON IN 

CPI 

ODH 

MVI 

A, 1 

JNZ 

IT1 

ENDIF 


IF SOLOS 
CALL CLRSCR 
ENDIF 


IF DMACNTL 
LXI H,RWDMA 
SHLD DMAENT+1 
ENDIF 


;point to 8251 init. bytes 
;there are 4 of them 
;get a byte 

;out to command port of console 
;out to command port of lister 
;bump pointer 
; decrease count 
;loop till done. 


if cromemco tuart, 

set a = 1. 

select device a. 

reset device b. 

get adr of baud rate table. 

octuple the clock. 

& reset current dev. 

get baud rate from table. 

increment pointer. 

set baud rate. 

read keyboard. 

read keyboard again. 

if not carriage-return, 

slow the clock. 

until a carriage-return. 


;if proc tech solos, 
;clear screen. 


;point to dma routine 
;modify boot jmp address. 






xr T±i'i£iK awu XMKt>£iijJLi ; 1 j. uaj.ny uaiueii cpu 
MVI A,CNTRO+RLWORD+MODE2+BINARY ;init 8253 

OUT TCMND ;send it to command port 

LXI B,33333 ;time constant for 60 hz 

MOV A,C 

OUT TCHO ;ls byte of count 

MOV A,B 

OUT TCHO ;ms byte of count 

ENDIF 

f 

JMP BOOTF ;finish boot 

IF TARDEL OR ISI02 

IOINIT: DB OAAH.040H.OCEH.037H 


ENDIF 

IF TUART 

BAUDRS: DB 94H,OCEH,0A2H,92H 

ENDIF 

ORG BIOS-64 
BOOTF: XRA A 

STA IOBYTE 
STA CDISK 
MVI B,ENDZ-STARTZ 
LXI H,STARTZ 
BOOTL: MOV M,A 

INX H 
DCR B 
JNZ BOOTL 
IN CDATA 
LXI H,SMSG 
PMSG: MOV A,M 

INX H 
ORA A 
JZ GOCPM 
MOV C,A 
CALL CONOT 
JMP PMSG 

• 

ORG BIOS 


;if cromemco tuart, 
88H,84H,82H,1 


;hide rest of boot here. 

;clear scratch area. 

;clear i/o byte. 

;select drive zero 

;get length of zero area. 

;get scratch address. 

;put zero in memory. 

;increment pointer. 

;decrement counter. 

;loop till done. 

;clear console status. 

;point to sign on. 

;get a byte of the message 
;bump memory pointer. 

;is it a zero? 

;yes, we are done, jmp to cpm. 
;nope, print more message. 

;use the conot routine. 

;and loop till done. 

;start of cbios structure. 


i/o jump vector 

this is where cpm calls whenever it needs to do any input/output 
operation, user programs may use these entry points also, but note 
that the location of this vector changes with the memory size. 


DMAENT: JMP BOOT 
WBOOTE: JMP WBOOT 
JMP CONST 
JMP CONIN 
JMP CONOT 
JMP LIST 
JMP PUNCH 
JMP READER 
JMP HOME 
JMP SELDSK 
JMP SETTRK 
JMP SETSEC 
JMP SETDMA 
JMP READ 
JMP WRITE 
JMP PRSTAT 
JMP SECTRAN 


from sboot loader,changed for dma. 

from warm boot. 

check console kb status. 

read console character. 

write console character. 

write listing char. 

write punch char. 

read reader char. 

move disk to track zero. 

select disk drive. 

seek to track in reg a. 

set sector number. 

set disk starting adr. 

read selected sector. 

write selected sector. 

list status check. 

sector translate routine. 


; this section defines the the disk parameters 






DPBASE EQU 

$ 



;base of disk parameter block 

DPEO: DW 

XLTO,0000H 



translate table 

DW 

0000H,0000H 



scratch area 

DW 

DIRBUF,SDTAB+3 


;dir buff, parm block 

DW 

CSVO f ALVO 



;check, alloc vectors 

DPE1: DW 

XLT1,0000H 




DW 

0000H,0000H 




DW 

DIRBUF,DPB1 




DW 

CSV1,ALVl 




DPE2: DW 

XLT2,0000H 




DW 

0000H,0000H 




DW 

DIRBUF,DPB2 




DW 

CSV2,ALV2 




DPE3: DW 

XLT3,0000H 




DW 

0000H,0000H 




DW 

DIRBUF,DPB3 




DW 

CSV3,ALV3 




! 

;the following describes 

the 

disk physical nature, such as 

; sectors/1rack,directory 

size 

, e tc... 

;the following table defines 

a single density drive. 

SDTAB: EQU 

$ 



one of 4 disk parm. blocks 

DB 

00H 



log byte single density 

DW 

XLTO 



use single density translate 

DW 

26 



sectors/track 

DB 

3 



block shift 

DB 

7 



block mask 

DB 

0 



extnt mask 

DW 

242 



disk size - 1 

DW 

63 



directory max. 

DB 

192 



allocO 

DB 

0 



allocl 

DW 

16 



check size 

DW 

2 



number of system tracks 

1 

IF 

DUBSID 


1 

is using double sided drives. 

f 

; defines a 

single density/ double sided disk 

DB 

02H 


i 

log byte doub sided 

DW 

XLTO 




DW 

26 




DB 

4 




DB 

15 




DB 

0 




DW 

242 




DW 

95 


\ 

allow 95 entrys for dir. 

DB 

192 




DB 

0 




DW 

24 




DW 

2 




ENDIF 





;the following table defines 

t 

DDTAB: DB 01H 

DW 0 
DW 51 
DB 4 
DB 15 
DB 0 


double density drive. 

;log byte doub den/sing sided 
;no sector translate table. 
;51 sectors. 

;block shift. 

;block mask. 

;extent mask. 






DW 

Z J / 

DW 

95 

DB 

192 

DB 

0 

DW 

24 

DW 

2 

IF 

DUBS ID 


defines a double density/doub 


DB 

03H 

DW 

0 

DW 

51 

DB 

5 

DB 

31 

DB 

0 

DW 

237 

DW 

95 

DB 

192 

DB 

0 

DW 

24 

DW 

2 

ENDIF 


;uj.sk. size -x 
;directory max. 

;allocO 
;allocl 
;check size 

;number of system tracks. 

;if using double sided drives, 
sided drive 

;log byte and dub sided 


sector translation table 


XLTO 


EQU $ 

DB 1,7,13,19,25 
DB 5,11,17,23,3 
DB 9,15,21,2,8 
DB 14,20,26,6,12 
DB 18,24,4,10,16,22 


DPBl EQU SDTAB+3 

XLT1 EQU XLTO 


DPB2 EQU SDTAB+3 

XLT2 EQU XLTO 


DPB3 EQU SDTAB+3 

XLT3 EQU XLTO 


;start of trans. table 


;equivalent parameters 
;same translate table 


disk set up routine, this routine is common to both the 
read and write routines for dma operation, this routine 
may be used stand alone by passing parameters to it and 
jumping to wboot-3 hex. this jump vector is changed when 
cp/m is booted up. 


entery point = rwdma: 


user must set up dmaadd for memory address and 
user must set up disk sector with 'setsec' entry 
the track to read or write must be set up using 'settrk' 
before using rwdma routine externally. 


entry parameters: 

b = floppy disk (1793) read/write command byte 

c = floppy disk (1793) force interrupt command byte 

d = dma (8257) read/write command + high byte count 

e = dma (8257) low byte count (80 hex = 128 bytes) 

exit values 

b,c = floppy commands 

d,e = dma command + byte count. 

h,l = (h,1 + d,e) 





a 


rxoppy aisK status uyte 


stack usage is 1 level deep. 



IF DMACNTL 



7 if using dma control 

DMARW: 

STA 

ERCNT 



save error count. 

RWDMA: 

LDA 

SECT 



get sector to read/write 


OUT 

SECTP 



and send it floppy chip. 


LHLD 

DMAADD 



get cpm dma address. 

DMARWE: 

XRA 

A 



clear accum. 


OUT 

CMND 



reset dma chip. 


MOV 

A, C 



force interrupt command byte 


OUT 

DCOM 



send it to controller. 


MOV 

A, E 



byte count to transfer 


DCR 

A 



count = count - 1. 


OUT 

WCTO 



send it to dma chip. 


MOV 

A,D 



get read/write code. 


OUT 

WCTO 



and tell dma chip what to do 


MOV 

A,L 



get low address byte 


OUT 

ADRO 



and send it to dma chip. 


MOV 

A,H 



get high address byte 


OUT 

ADRO 



and send it to dma chip. 


MV I 

A, 41H 



set up for request ch. 0 


OUT 

CMND 



send it to controller. 


CALL 

HDLD 



check head load bit. 


ORA 

B 



'or' in the read/write bits. 


OUT 

DCOM 



tell floppy chip what to do. 

7 

;adjust 

h f l for 128 byte 

increase. 

7 

PUSH 

D 



save d,e 


MOV 

A,D 



get dma command byte 


AN I 

3FH 



strip off command bits 7 & 6 


MOV 

D,A 



now set for h,l adjust. 


DAD 

D 



add it to h,l. 


POP 

D 



restore d,e 

/ 

;general purpose wait routine. 

• 



t 

MV I 

A, 20H 


9 

count value. 

CNTLOOP 

DCR 

A 





JNZ 

CNTLOOP 



loop till = zero. 

SLOOP: 

IN 

DMACHK 



check for operation done. 


RLC 




by looking at bit 7. 


JC 

SLOOP 



loop till bit 7=0. 


IN 

DSTAT 



check and return disk status 


RET 




return to caller. 


ENDIF 




1 

;warm-boot - 

read the ccp 

back 

into memory, bdos and bios 

;assumed still in memory. 

if they are not, a cold start will 

;have to be done to bring 

• 

them 

back into memory. 

WBOOT: 

• 

LXI 

SP,80H 


• 

9 

set stack pointer. 

r 

IF INTRP AND NOT 

DMACNTL; 

if interrupts allowed. 


El 



• 

r 

allow them here. 


ENDIF 




7 

IF 

LSTPAG 


, 

t 

if list device paging. 


XRA 

A 


7 

reset line-feed count. 


STA 

LFCNT 





ENDIF 




7 

MV I 

o 

U 


• 

t 

select disk 0. 









CAL Li 

SELDSft. 




CALL 

HOME 

;move to track zero. 



LXI 

H, 0 

;clear h,l 



SHLD 

DRVFLG 

;clear drive flags 



SHLD 

DRVFLG+2 



MV I 

B,NSECTS 

;get # sectors for cpm read. 



MVI 

C, 2 

;track (b)=0, sector (c)=2. 

7 


IF INTRP AND NOT 

DMACNTLjif interrupts allowed. 



DI 


;disable them here. 



ENDIF 


? 


LXI 

H,CPMB 

;get starting address. 

RBLK1: 

SHLD 

DMAADD 

;set starting address. 



CALL 

SETSEC 

;read starting at sector in c. 



PUSH 

B 




CALL 

READ 

;read a sector back. 



POP 

B 




JNZ 

RDERR 

;if error, print message. 



INR 

C 

;increment sector number. 



DCR 

B 

;decrement sector count. 



JNZ 

RBLK1 

;not zero, keep reading 

7 


IF INTRP AND NOT 

DMACNTLjif interrupts allowed. 



El 


;allow them again here. 



ENDIF 


7 

• 

t 

set up jumps into cp/m 

in lower memory. 

GOCPM: 

MVI 

A,0C3H 

;put jmp to wboot 



STA 

0 

;adr at zero. 



LXI 

H,WBOOTE 

;warmboot entry point 



SHLD 

1 

;set it. 



STA 

5 

;set jump instruction. 



LXI 

H,BDOS 

;put jump to bdos 



SHLD 

6 

;at adr 5,6,7. 



LXI 

H, 80H 

;set default dma adr. 



SHLD 

DMAADD 

;save it. 



LDA 

CDISK 

;get disk number to 



MOV 

C ,A 

;pass to ccp in c. 

• 


JMP 

CPMB 

;jump to ccp. 

RDERR: 

CALL 

RECOV 

;we have an error in booting. 



JMP 

WBOOT 

;do a warm boot. 

7 

• 

/ 

check 

console input status. 

CONST: 

CALL 

STATCON 

;check console status port. 

CONST1: 

MVI 

A, 0 

;set a=0 for return. 

/ 


IF 

RDYLO 

;if status ready low, 



RNZ 


;not ready when not 0. 



ENDIF 


7 


IF 

RDYHI 

;if status ready high, 



RZ 


;not ready when zero. 



ENDIF 


7 


CMA 


;if ready a=ff. 



RET 


;return from const. 


statcon - check keyboard status 


’ 

NOT SOLOS 


STATCON:IN 

CSTAT 

;in status port 

AN I 

CKBR 

;mask ready bit. 







RET 

ENDIF 


read a character from console. 


CONIN: 




IF NOT SOLOS 

;if not proc tech solos, 


CALL STATCON 

;read console status. 


ENDIF 


7 

IF SOLOS 

;if proc tech solos, 


CALL KBD 

;read sol keyboard. 


JZ CONIN 

;ready when not zero. 


ENDIF 


7 

IF RDYLO AND NOT SOLOS 


JNZ CONIN 

;loop until low. 


ENDIF 


7 

IF RDYHI 

;if ready when high. 


JZ CONIN 

;loop until high. 


ENDIF 


7 

IF NOT SOLOS 

;if not proc tech solos, 


IN CDATA 

;read a character. 


ENDIF 


7 

ANI 7FH 

;make most sig. bit = 0. 


RET 

;return from conin. 

t 

; write a character to the console device. 

CONOT: 




IF CONUL 

;if nulls required, 


MVI A f OAH 

;if it's a If, 


CMP C 

;then hop out 


JZ CONULL 

;to null routine. 


ENDIF 


C0N0T1 

: 



IF NOT SOLOS AND NOT VIDEO 


IN CSTAT 

;read console status. 


ANI CPTR 

;if not ready, 


ENDIF 


7 

IF RDYLO AND NOT SOLOS 

AND NOT VIDEO 


JNZ CONOT1 

;loop until low. 


ENDIF 


7 

IF RDYHI AND NOT VIDEO 

;if ready when high. 


JZ CONOT1 

;loop until high. 


ENDIF 


7 

IF NOT SOLOS AND NOT VIDEO 


MOV A,C 

;get character. 


OUT CDATA 

;print it. 


RET 

;return. 


ENDIF 


;this 

routine calles your video 

' driver routine which must 

;be in 

rom. all registers must 

be saved and restored by your 

; video 

driver in order to be compatiable with cpm. cpm passes 


the char, to be output in the c register, make any changes 
in this routine to pass the char from reg c to the register 
your video driver expects it to be in. 

;if using a video driver in rom. 


IF VIDEO 





CONULL: 
CONUL1: 


MOV 

A r O 

;ger tne cpm cnar xilco 

CALL 

OUTADDR 

;call your video driver 

RET 


;return to cpm. 

ENDIF 


IF CONUL 


PUSH 

B 

;save b&c. 

MV I 

B ,CNULL+1 

;get null count. 

CALL 

CONOT1 

/print cr. 

MV I 

C,0 

;get null char. 

DCR 

B 

;decrement counter. 

JNZ 

CONULl 

;do next null. 

POP 

B 

;restore b&c. 

MOV 

A,C 

;restore a. 

RET 


/ return. 

ENDIF 


IF 

SOLOS 

;if proc tech solos. 

PUSH 

B 

;save b&c. 

MOV 

B,C 

;put char in b reg. 

CALL 

SCRN 

/output char to solos. 

POP 

B 

/restore b&c. 

MOV 

A,C 

/put char in a. 

RET 


/return from conot. 

ENDIF 



select disk number according to register c. 


SELDSK: 

LXI 

H, 0 

/set up for error code 


MOV 

A,C 

/get new drive. 


CPI 

NDISK 

/calling undefined drive ? 


RNC 


/if no cy, h,l tells cpm yes 


LXI 

H,DISKNO 

/get old drive number. 


MOV 

A,M 

/get old disk number. 

r 

IF 

DUAL 

/if dual drive, 


AN I 

OFEH 

/clear out bit 0. 


ENDIF 


r 

MOV 

E,A 

/put old disk no. in d&e. 


MV I 

D, 0 



LXI 

H,TRTAB 

/get address of track table. 


PUSH 

H 

/save address of trtab. 


DAD 

D 

/add disk no. to address. 


IN 

TRACK 

/read 1771 track register. 


MOV 

M,A 

/put into table. 


MOV 

A,C 

/get new disk number. 

f 

IF 

DUAL 

/if a dual drive. 


AN I 

OFEH 

/clear bit 0. 


ENDIF 


r 

MOV 

E,A 

/put new disk no. in d&e. 


POP 

H 

/restore address of trtab. 


DAD 

D 

/add disk no. to address. 


MOV 

A,M 

/get new track number. 


OUT 

TRACK 

/put into 1771 track reg. 


MOV 

A,C 

/update old disk number. 


STA 

DISKNO 



ADD 

A 

/put bits 1&2 at 4&5. 


ADD 

A 



ADD 

A 



ADD 

A 



STA 

LATCH 

/save new latch code. 

DENSITY 

: LXI 

H,DRVFLG 

/point to drive den. flag 


MV I 

B, 0 

/clear reg b. 




DAD 

B 


; inaex into anve nay iw. 


MOV 

A, M 


;get the flag byte 


ORA 

A 


;logged in? 


JM 

LOGED 


;yes f it's logged. 


PUSH 

H 


;no, save flag address. 


LDA 

LATCH 


;get latch code 


OUT 

DCONT 


;change latch or density 

7 

; read 

track 

0 sector 

1 for density byte at 7e hex. 

7 

MV I 

A,1 


; sector 1. 


STA 

SECT 


;save the sector value. 


CALL 

HOME 


;home the drive. 


LHLD 

DMAADD 


;get cp/m dma address value 


PUSH 

H 


; save it on the stack. 


LXI 

H, DBUFF 


;point to the dma buffer. 


SHLD 

DMAADD 


;set up read dma address. 

7 

; read 

the data using 

read routine. 

7 

CALL 

READ 


;cbios read routine. 

t 

;get density 

byte value and determine drive status. 

r 

POP 

H 


restore dma address from the stack. 


SHLD 

DMAADD 


and restore the cp/m dma address. 


POP 

H 


restore density flag address. 


LDA 

DBUFF+7EH 

index into dbuff to location dbuff+7e 


ORI 

80H 


set logged in bit 


MOV 

M,A 


place it in flag table. 

LOGED: 

LXI 

B, 18 


index value through drive table. 


AN I 

12H 


mask density and side bits out. 


ORA 

A 


single density? 


LXI 

H ,SDTAB 


point to start of tables 


JZ 

DENSIT1 


yes, overlay param. block 

7 

IF 

DUBSID 




DAD 

B 


;no, add offset to next table 


CPI 

2 


single den doub sided? 


JZ 

DENSIT1 


ryes 


DAD 

B 


no 


CPI 

10H 


;doub den single sided? 


JZ 

DENSIT1 


ryes 


ENDIF 



7 

DAD 

B 


no, must be doub den , doub sided 

DENSIT1:XCHG 



drive table pointer —h d,e 


LDAX 

D 


get log and drive type byte. 


INX 

D 


bump pointer 


STA 

DENS 


set current drive density. 


PUSH 

D 


save drive table pointer. 


CALL 

PARINDX 


compute parameter overlay area. 


POP 

D 


restore drive table pointer. 


LXI 

B, 0208H 


b = 2, c = 8 (count values). 

MOVE: 

LDAX 

D 


get xltO byte. 


MOV 

M,A 


and put it into dw table for drive. 


INX 

D 


bump 


INX 

H 


pointers 


DCR 

B 


decrease count. 


JNZ 

MOVE 


and loop till zero. 


DAD 

B 


now add index into dpbO area. 


MOV 

M,E 


get low pointer byte. 


INX 

H 


bump pointer. 

• 

MOV 

M,D 


get high pointer byte. 

/ 

;select drive as a function of h, 

,1 







PARINDX 

: LHLD 

DISKNO 

load disk number and zero byte 


LXI 

D,DPBASE 

point to disk parm start. 


DAD 

H 

* ? 


DAD 

H 

*4 


DAD 

H 

*8 


DAD 

H 

*16 


DAD 

D 

compute index for the drive 


XRA 

RET 

A 

set a = 0. 

return from seldsk. 

; move 

disk 

to track zero. 


HOME: 

MVI 

C,0 

rseek to track zero. 


MV I 

A,STPRAT 

\ restore command 

• 

/ 

OUT 

DCOM 

rtell controller. 


set track number to whatever is in register c. 
also perform move to the correct track (seek). 


SETTRK: 



LHLD 

LATCH 

;get new and old latch. 


MOV 

A,H 

;get latch value. 


AN I 

0B7H 

;strip density and side bits. 


MOV 

H,A 

;restore it. 

/ 

IF 

DUBSID 

;if using double sided drive. 


LDA 

DENS 

;check if double sided. 


RRC 




RRC 


;look at bit 1. 


JNC 

NOTSID 

;if bit 1=0, it's single sided. 


MOV 

A,C 

;it's doub sided, so get track number 


RRC 


;divide by 2. 


MOV 

B, A 

;save it in reg b. 


MOV 

A,L 

;get old latch value. 


JC 

SIDE2 

;change side if odd track. 


AN I 

OBFH 

;clear side bit from latch. 


JMP 

SETLAT 

;go set the latch. 

SIDE2: 

OR I 

40H 

;turn on side select bit. 

SETLAT: 

STA 

CLATCH 

;save it for later. 


AN I 

OBFH 

;clear side bit. 


CALL 

OLDLAT 

;check for drive change. 


MOV 

A, B 

;restore doub sided trk number. 


AN I 

7FH 

;clear bit 7. 


MOV 

C, A 

;trk number now in reg c. 


JMP 

TRKSET 

;check for density of track going to. 


ENDIF 


r 

IF 

NOT DUBSID 

;if not using double sided drive 


JMP 

NOTSID 

;jump around subroutine. 


ENDIF 


OLDLAT: 

CMP 

H 

;new = old? 


MVI 

A,OFFH 

;if not, set = ff 


JNZ 

SFLAG 



CMA 


;new = old, set = 0. 

SFLAG: 

STA 

HLSF 

;save head load select flag. 


RET 



NOTSID: 

MOV 

A, L 

;get latch value. 


STA 

CLATCH 

;save it 


CALL 

OLDLAT 

;check for drive change. 

TRKSET: 

LDA 

DENS 

;check drive density flag. 


RRC 


;is bit 0=0? 


JNC 

TRKSD 

;yes, we are single density. 










JYLUV 

Aft 

;n Of itibCULe i-jlchjis. huiujjcl . 


CPI 

1 

;is it track 1? 


JC 

TRKSD 

;if less than, set single density. 


LDA 

CLATCH 

;get current latch value. 


ORI 

JMP 

8 

TRKDD 

;set for double density. 

TRKSD: 

LDA 

CLATCH 

;get current latch value. 


AN I 

0F7H 

;turn off bit 4 (single density). 

TRKDD: 

STA 

CLATCH 

;save new latch value. 


OUT 

DCONT 

;select disk and make density change 


MOV 

A,C 

;restore track value 


STA 

TRK 

;update old with new. 


; move 

the head to the track in 

register a. 

SEEK: 

PUSH 

B 

;save b&c. 


MOV 

B, A 

;save destination track. 


MV I 

A, RTCNT 

;get retry count. 

SRETRY: 

STA 

SERCNT 

;store in error counter. 


IN 

TRACK 

;read present track no. 


CMP 

B 

?same as new track no.? 


JNZ 

NOTHR 

;jump if not there. 

THERE: 

POP 

B 

;restore b&c. 


RET 


;return from seek. 

NOTHR: 

MOV 

A,B 

;restore a from b. 


OUT 

DDATA 

;track to data register. 


MVI 

A,14H+STPRAT+HLAB 

;get step rate, do 


OUT 

DCOM 

;seek with verify. 

7 

IF NOT DMACNTL 



IN 

WAIT 

;wait for intrq. 


IN 

DSTAT 

;read status. 


ENDIF 


7 

IF DMACNTL 



CALL 

SLOOP 

;no wait status check. 


ENDIF 


7 

AN I 

91H 

;look at bits. 


JZ THERE 

;ok if zero. 


LDA 

SERCNT 

;get error count. 


DCR 

A 

;decrement count. 


JNZ 

SRETRY 

;retry seek. 


POP 

B 

;restore b&c. 


PUSH 

B 

; save 


CALL 

RECOV 

;if seek retry = 10 check 


POP 

B 



MOV 

A,C 

;recover track number. 


JMP 

SEEK 

; for cntl-c for abort. 


; set disk sector number. 


• 

SETSEC: MOV 

A,C 

;get sector number. 

STA 

SECT 

;put at sect # address. 

RET 


;return from setsec. 


;translate the sector given b,c using 
;the translate table;given by d,e 

SECTRAN: 


MOV 

L,C 

;get physical sector number 

I NR 

L 

;bump it by one. 


MOV 

A,D 

;are we using no 

xlat table? 

ORA 

E 

;it will be zero 

if not. 

RZ 


;return if it is 

zero. 








ACiHa 



; n, x = u dus 


DAD 

B 


;h,l = trans (sector) 


MOV 

L,M 


/I = trans (sector) 


MV I 

H, 0 


;clear reg h 


RET 



;h,l = translated sector 

7 

; set 

disk dma address 

• 


SETDMA 

: MOV 

H,B 


;move b&c to h&l. 


MOV 

L,C 




SHLD 

DMAADD 


;put at dma adr address. 


RET 



;return from setdma. 

; hdld 

- get 

head-load 

bit 

if required. 

7 

HDLD: 

LDA 

HLSF 


;get head-load flag. 


ORA 

A 


;is a = zero? 


JZ 

HDLD1 


;hop if so. 


CMA 



;set a = 0. 


STA 

HLSF 


;set flag = 0 if not. 

9 

;if changing 

to a new 

drive, perform a seek to 

;the same track to unload 

the head on new drive. 

9 

IN 

TRACK 


;get present track 


OUT 

DDATA 


/tell controller. 


MV I 

A,10H+STPRAT 



OUT 

DCOM 



9 

IF 

NOT DMACNTL 



IN 

WAIT 


/wait for intrq. 


ENDIF 



9 

IF 

DMACNTL 




CALL 

SLOOP 


/check dma status port. 


ENDIF 



HDLD1: 

IN 

DSTAT 


/read 1771 status. 


AN I 

20H 


;look at hi bit. 


MV I 

A,4 




RZ 



;return if head is not loaded. 


SUB 

A 


;head is already loaded. 


RET 



;return from hdld. 

/ read 

the sector at sect. 

from the present track. 

/ use 

starting address 

at 

dmaadd. 

READ: 

MV I 

A,RTCNT 


;get retry count. 

RRETRY 

• 

• 





IF DMACNTL 




LXI 

B,80D0H 


;floppy read, force interrupt. 


LXI 

D, 4080H 


;dma read, dma count byte 


CALL 

DMARW 


;enter common read/write routi 


ENDIF 



7 

IF NOT DMACNTL 




MVI 

B, 80H 


/floppy read command byte. 


CALL 

DSKSET 


;set up disk controller. 


ORA 

B 


/'or' in the read command. 

READE: 

OUT 

DCOM 


/send command to 1771. 

RLOOP: 

IN 

WAIT 


/wait for drq or intrq. 


ORA 

A 


/set flags. 


JP 

RDDONE 


/done if intrq. 


IN 

DDATA 


/read a data byte from disk. 


MOV 

M,A 


/put byte into memory. 


INX 

H 


/increment memory pointer. 








UWt' KijUOJ? 

RDDONE: IN DSTAT 
ENDIF 


; N<;ep xeauxiiy. 

;read disk status. 


IF INTRP AND NOT DMACNTL;if interrupts allowed. 


El 

ENDIF 


;allow again here. 


ANI 9DH 
RZ 

CALL ERCHK 
JNZ RRETRY 
CALL RECOV 
JMP READ 


;look at error bits. 

;return if none. 

;check for seek error. 

;try to read again. 

;check for abort or continue 
;if not cntl-c, try to read again. 


recov 

this routine is called by any read,write,seek routine if the retry 
count goes to 10. if it does,this routine calls conin for a key to 
be pushed, if the key is a cntl-c, then a warmboot is executed, if 
any other key is pushed, then a return is made back to the caller 
and that routine is retried for 10 more times. 

RECOV: 



MV I 

C, 'e' 

error code 


CALL 

CONOT 

rprint it 


CALL 

CONIN 

check for pushed key. 


CPI 

03H 

?is it a cntl-c ? 


RNZ 


return to caller if no 


JMP 

WBOOT 

ryes, do warmboot. 

7 

; erchk 

- check for record not found error. 

ERCHK: 

ANI 

10H 

rif record not found. 


JNZ 

CHKSK 

rdo a check on seek. 

CHKOK: 

LDA 

ERCNT 

7 get retrys allowed 


DCR 

A 

^decrease it. 


RET 


rand return with number 

7 

;check 

for seek to correct track 

r 

;and change 

• 

if necessary. 


/ 

IF NOT DMACNTL 


CHKSK: 

MV I 

A, 0C4H 

send command to 1771 


OUT 

DCOM 

to read address. 


IN 

WAIT 

wait for drq or intrq. 


IN 

DDATA 

read the track address 


PUSH 

PSW 

save it on the stack. 

CHKS2: 

IN 

DMACHK 

wait for intrq. 


ORA 

A 

set flags. 


JP 

CHKS3 

done with read adr op. 


IN 

DDATA 

read another byte. 


JMP 

CHKS2 

do it again. 

CHKS3: 

IN 

DSTAT 

read disk status. 


ENDIF 


7 

IF 

DMACNTL 


CHKSK: 

LXI 

H,BIOS-7 

point to unused space 


LXI 

B,0C4D0H 

read address, force in 


LXI 

D,04006H 

dma read, count byte 


CALL 

DMARWE 

read the id using dma < 


ORA 

A 

set flags. 


JZ 

CHKS4 

read adr ok if 0. 


CALL 

HOME 

otherwise, home first. 


JMP 

CHKS5 



ENDIF 








IF 

NOT lMACNTJj 


CHKS4: 

POP 

PSW 

;update track register 


ENDIF 


? 

IF 

DMACNTL 


CHKS4: 

IN 

SECTP 

;get the track byte 


ENDIF 


7 

OUT 

TRACK 


CHKS5: 

LDA 

TRK 

;get required track no 


CALL 

SEEK 

;move the head to it. 


JMP 

CHKOK 

;exit from error check 

7 

IF 

NOT DMACNTL 


DSKSET: 

STA 

ERCNT 

;store in error ctr. 


MVI 

A,ODOH 

;cause interrupt. 


OUT 

DCOM 



XTHL 


; some 


XTHL 


; delay 


ENDIF 

IF INTRP AND NOT DMACNTL;if interrupts allowed, 
DI ;disable them here. 

ENDIF 



IF NOT DMACNTL 

LHLD DMAADD 

;get starting addr. 


LDA SECT 

;get sector number. 


OUT SECTP 

;set sector into 1771. 


CALL HDLD 

;get head-load bit? 


RET 

;return to caller 


ENDIF 


7 

; write 

the sector at sect 

, on the present track, 

; use starting address at 

dmaadd. 

WRITE: 

MVI A,RTCNT 

;get retry count. 

WRETRY: 

IF DMACNTL 

LXI B,0A0D0H 

;floppy write, force interrupt. 


LXI D,08080H 

;dma write, dma count byte. 


CALL DMARW 

;enter common read/write routine 


ENDIF 


7 

IF NOT DMACNTL 



MVI B,OAOH 

;floppy write command byte. 


CALL DSKSET 

;set up floppy controller. 


ORA B 

;'or' in write command. 

WRITE2: 

OUT DCOM 


WLOOP: 

IN WAIT 

;wait for ready. 


ORA A 

;set flags. 


JP WDONE 

;hop out when done. 


MOV A,M 

;get byte from mem. 


OUT DDATA 

;write onto disk. 


INX H 

;increment mem ptr. 


JMP WLOOP 

;keep writing. 

WDONE: 

IN DSTAT 

;read disk status. 


ENDIF 


7 

IF INTRP AND NOT DMACNTL;if interrupts allowed. 


El 

;enable again here. 

• 

9 

ENDIF 

ANI OFDH 

;look at these bits. 


RZ 

;return if no err. 


CALL ERCHK 

;check/correct seek err. 





JNZ 

WKBTKX 

;try to write again. 


CALL 

RECOV 

;check for abort 

• 

JMP 

WRITE 

;retry write again. 

9 

; list 

status 

check routine 


PRSTAT 

• 

: CALL 

PSTAT 

;check printer status port. 

/ 

MV I 

A, 0 

;return status activity. 

f 

IF 

RNZ 

TARDEL OR RDYLO 



ENDIF 


r 

IF 

NOT TARDEL AND 

RDYHI 


RZ 

ENDIF 

9 

CMA ;invert it 

9 

; punch and reader are not supported. 

PUNCH: 

READER: RET 


;pstat - printer status check routine. 

/ 

PSTAT: IN LSTAT ;read printer status port. 

IF NOT TARDEL 
ANI LRBIT 
ENDIF 

9 

IF TARDEL 

ANI 81H ;mask ready bits 

XRI 81H 

ENDIF 

r 

RET ;return to caller 

/ 

; write a character on listing device. 

LIST: 


IF 

LSTNUL 

;if nulls or paging 

MV I 

A, ODH 

;if it's a cr, 

CMP 

C 

;then hop out to 

JZ 

LINUL 

;null routine. 

ENDIF 


IF 

LSTPAG 

;if paging 

MV I 

A, OAH 

;get a linefeed 

CMP 

C 

;does it match? 

JZ 

LINUL3 


MOV 

A, C 


CPI 

OCH 


RZ 



ENDIF 


CALL 

PSTAT 

;read lister status 

IF 

TARDEL OR 

RDYLO 

JNZ 

LTBSY 

;loop till low. 

ENDIF 


IF 

NOT TARDEL 

AND RDYHI 

JZ 

LTBSY 

;loop till high. 






ENDIU’ 



MOV 

A,C 


;get data byte. 


OUT 

LDATA 


;print it. 


RET 



;return from list. 

7 

IF 

LSTNUL 


;if list nulls 

LINUL: 

PUSH 

B 


;save b&c. 


MV I 

B f (LNULL AND 0FFH)+1 ;get null count 

LINUL1: 

CALL 

LTBSY 


;print (cr first). 


MV I 

C,0 


;get null char. 


DCR 

B 


;decrement counter. 


JNZ 

LINUL1 


;do next null. 


JMP 

LINUL2 


;exit the routine. 


ENDIF 



7 

IF 

LSTPAG 


;if list dev. paging. 

LINUL3: 

PUSH 

B 


;save b,c pair 


LDA 

LFCNT 


;get line-feed count. 


INR 

A 


;increment it. 


STA 

LFCNT 


;save it back. 


CPI 

LINCNT- 

-(LINCNT/11) 

;end of page? 


MV I 

B, 1 


;set up for 1 If. 


JNZ 

NOTEOP 


;hop if not end. 


XRA 

A 


;set If count = 0. 


STA 

LFCNT 




MV I 

B,(LINCNT/11)+1 

;between pages. 

NOTEOP: 

MV I 

C, OAH 


;get line-feed code. 

LSTPA1: 

CALL 

LTBSY 


;print line-feed. 


DCR 

B 


;decrement If counter 


JNZ 

LSTPA1 


;do next line feed? 


ENDIF 



7 

IF 

LSTNUL 

OR LSTPAG 

;if nulls or paging, 

LINUL2: 

POP 

B 


;restore b&c. 


MOV 

A,C 


;restore a. 


RET 



;return from list. 


ENDIF 



ENDPROG 

EQU 

$-1 


;ending address. 


note: as there are only six (6) sectors available for cbios on *£ 

the second system track (1), the last address before this point 
should be no greater than the cbios starting address + 037f (hex) 


; this 

• 

will normally 

be xd7f (hex). 

9 

; bios 

scratch area 

• 

TRK: 

DS 1 

;current track number. 

SECT: 

DS 1 

;current sector number. 

DMAADD 

: DS 2 

;disk transfer address. 

; the 

next several 

bytes, between startz and 

; endz 

, are set to 

zero at cold boot time. 

START Z 

• 

• 

;start of zeroed area. 

DISKNO 

: DS 2 

;disk number 

1 

; special flags. 

• 


HLSF: 

DS 1 

;head-load select flag. 

LFCNT: 

DS 1 

;paging line-feed count 


; trtab - disk track table - present position of 
; heads for up to 4 drives. 






TRTAB: 

DS 

4 


DRVFLG: 

DS 

4 

;drive density flags. 

DENS: 

DS 

1 

;current drive density value. 

ERCNT: 

DS 

1 

;error count for retries. 

SERCNT: 

DS 

1 

;seek retry counter. 

LATCH: 

DS 

1 

;new code for latch. 

CLATCH: 

DS 

1 

;current code in latch. 

7 

ENDZ 

EQU 

$ 


BEGDAT 

EQU 

$ 


DIRBUF: 

DS 

128 

;directory buffer 

ALVO: 

DS 

31 


CSVO: 

DS 

24 


ALV1: 

DS 

31 


CSV1: 

DS 

24 


ALV2: 

DS 

31 


CSV2: 

DS 

24 


ALV3: 

DS 

31 


CSV3: 

DS 

24 


ENDDAT 

EQU 

$ 


DATSIZ 

• 

EQU 

$-BEGDAT 

;total size of disk parm storage. 

DBUFF: 

DS 

128 

;128 byte density select buffer. 

7 

ORG 

END 

ENDPROG 

;show actual ending address of bios 


Ah 

/ 

; tarbell electronics cp/m coldstart loader 
; version of 10-27-81. 


modified for dma control - 1-5-80. 

modified for reading larger bios from trk 1 - 6-5-80. 

modified for tarbell cpu card - 7-3-80. 

modified to clear extended latch on disk board 6-29-81 

modified for doub den side 1 system track 9-29-81 

added larger sector check in seccmp + 1 lable 10-27-81 

g.w.mulchin 

tarbell electronics 


copyright (c) 1980, 1981 tarbell electronics 


***************************************************************** 


* * 

* ** note ** * 

* ============= * 

* * 


* the equate for double density (doubden) must only be * 

* set true for a disk which is formatted in double density only * 

* and one which you wish to put an operating system on to. * 

* otherwise, leave it false if you are building an operating * 

* system on to a single density formatted disk. * 

* * 
***************************************************************** 


this program is loaded at location zero by the bootstrap program, 
and executed, its purpose is to load and execute the cp/m disk 
operating system at the top of the memory in use. 


FALSE 

EQU 

0 

;define value of false. 


TRUE 

EQU 

NOT FALSE 

;define value of true. 


/ 

• ********* 

/ 

this is the 

area to make changes in ******************* 

.********* 
t 

for different system configurations ******************* 

4e 4e 

MSIZE 

EQU 

64 

;memory size in decimal kb. 

** 

TARBELL 

EQU 

FALSE 

;true if using tarbell cpu. 

** 

DUBSID 

EQU 

FALSE 

;true for double sided systems. 

** 

DELTA 

EQU 

FALSE 

;true if using delta cpu card 

** 

DOUBDEN 

EQU 

FALSE 

;true if doub. den disk. 

** 

DMACNTL 

EQU 

TRUE 

;true if using dma control 

** 

BASE 

EQU 

0 

;tarbell i/o ports (00 or 10 hex) 

** 

DDS 

EQU 

26 

;sectors in trk 1 , (range = 26 to 51) 

** 

DISK 

EQU 

0F8H 

;disk port base address. 

** 

** 

r 

****************************************************************** 

t 

r 

IF 

TARBELL 



10 

EQU 

BASE 

; i/o ports on tarbell cpu. 


MMENB 

EQU 

10+10 

jmemory management enable port. 


MEMMAG 

EQU 

BASE+32 

;memory management port. 



ENDIF 



ADR0 

EQU 

0E0H 

;dma address port. 


WCT0 

EQU 

0E1H 

;dma word count port. 


CMND 

EQU 

0E8H 

;dma command port. 


DCOM 

EQU 

DISK 

;command port. 


DSTAT 

EOU 

DISK 

;status port. 












TRACK 

EQU 

DISK+1 

track port. 



SECT 

EQU 

DISK+2 

sector port. 



DATA 

EQU 

DISK+3 

data port. 



WAIT 

EQU 

DISK+4 

wait port. 



DCONT 

EQU 

DISK+4 

control port. 



DMACHK 

EQU 

DISK+5 

dma check port. 



EXTMEM 

EQU 

DISK+5 

extended disk latch 



PANEL 

EQU 

OFFH 

front panel machines. 



CBASE 

EQU 

(MSIZE-20)* 

1024 



CPMB 

EQU 

CBASE+3400H 

start of cp/m. 



BOOTE 

EQU 

CPMB+1600H 

cold boot entry point. 



SPT 

EQU 

26 

number of sectors per track. 

(sing den) 

SDS 

EQU 

25 

always 25 sectors to read in 

trk 

1 . 

NSECTS 

EQU 

SDS + DDS 

sectors of cp/m. 



RTCNT 

EQU 

10 

number of retrys. 



7 

ORG 

0 

start of loader. 



BOOT: 







IF 

TARBELL 

;if using tarbell cpu 




LXI 

D, 1000H 

;count=16, data byte = 0 




MV I 

C,MEMMAG AND OFFH 



MLOOP: 

MOV 

A, E 

;get address value 




ORA 

C 

;make i/o port value 




STA 

MOUT+1 

;modify port on the fly 




MOV 

A,E 

;get init value. 




CMA 


;flip it for ram on cpu 



MOUT: 

OUT 

BASE 

;put it to ram on cpu 




I NR 

E 

;bump data value 




DCR 

D 

^decrease count 




JNZ 

MLOOP 

;loop 16 times. 




OUT 

MMENB 

enable memory management. 




ENDIF 




7 

IF 

DELTA 

?if using delta cpu. 




MV I 

A, 1 

?get a 1 in reg a. 




OUT 

9 

and disable cpu rom slot. 




ENDIF 




7 

XRA 

A 

clear accum 




OUT 

EXTMEM 

clear extended disk latch 




MV I 

E,RTCNT 

get retry count. 



BLOOP: 

LXI 

SP,100H 

set stack pointer. 




LXI 

H,CPMB 

cp/m starts here. 




MV I 

D,NSECTS 

number of sectors to read. 




MV I 

C,2 

sector number. 



RNTRK: 

MV I 

B / 4 

for head load. 



RNSEC: 

CALL 

READ 

read first sector. 




DCR 

D 

if done. 




JZ 

BOOTE 

go to cp/m. 




MV I 

B, 0 

for no head load. 




INR 

C 

increment sector count. 




MOV 

A,C 

done with 



SECCMP: 

CPI 

SPT+1 

this track? 




JC 

RNSEC 

if not, read next sector. 



7 

IF 

DOUBDEN AND 

NOT DUBSID 




MV I 

A,DDS + 1 

inumber of sectors to read on 

trk 

1 . 


STA 

SECCMP+1 

imodify sector compare value. 




MV I 

A,8 

:get set double density code 




OUT 

WAIT 

set latch for d.density 




ENDIF 




7 

IF 

NOT DUBSID 





MV I 

A, 5BH 

step command. 




OUT 

DCOM 

issue it. 






READ: 


RLOOP: 


SLOPP: 


CHECK: 


HERE: 


IN 

WAIT 

;wait until done. 

ENDIF 


IF 

DUBSID 

;if double sided system. 

MV I 

A f DDS + 1 

ynumber of sectors to read on trk 1. 

STA 

SECCMP+1 

;modify sector compare value. 

MV I 

A, 48H 

;side select and density select 

OUT 

DCONT 

;issue it. 

ENDIF 


MV I 

c,i 

;sector number. 

JMP 

RNTRK 

;read next track. 

IF 

DMACNTL 

;if using dma control. 

MV I 

A f 41H 

;set up for chan 0 req. 

OUT 

CMND 


MV I 

A, 7FH 

;count for 128 bytes 

OUT 

WCTO 


MV I 

A, 40H 

;read command 

OUT 

WCTO 


MOV 

A,L 

;get low address byte 

OUT 

ADRO 


MOV 

A,H 

;high address byte 

OUT 

ADRO 


ENDIF 


MOV 

A, C 

;sector in a. 

OUT 

SECT 

;set sector register. 

MV I 

A, 88H 

;command for read. 

ORA 

B 

;get head load bit. 

OUT 

DCOM 

;issue command. 

IF 

NOT DMACNTL 

,;if not using dma control. 

IN 

WAIT 

;wait for drq. 

ORA 

A 

;set flags. 

JP 

CHECK 

yjump if done. 

IN 

DATA 

;read data. 

MOV 

M,A 

;put in memory. 

INX 

H 

;increment pointer. 

JMP 

RLOOP 

;loop until done. 

ENDIF 


IF 

DMACNTL 


IN 

DMACHK 

;check dma status 

RLC 


; bit 7 

JC 

SLOPP 

;loop if carry 

PUSH 

B 

;save b,c pair 

LXI 

B,128 

;count set for 128 bytes 

DAD 

B 

yadjust h,l by 128 bytes 

POP 

B 

;restore be 

ENDIF 


IN 

DSTAT 

;read status. 

AN I 

9DH 

;look at error bits. 

RZ 


;ok if zero. 

DCR 

E 

ydecrement retry count. 

JNZ 

BLOOP 

;try again if not zero. 

CMA 


;flip for front panel 

OUT 

PANEL 

;show error code from floppy. 

JMP 

HERE 

;loop. 

ORG 

7DH 

;put jump here. 

IF 

DOUBDEN AND 

NOT DUBSID ;if running double density 

RST 

0 

;do restart 0 





DB ODDH 
DB 0 
ENDIF 


;this byte must be here if doub den. 
;this byte unused 

IF DOUBDEN AND DUBSID 

RST 0 

DB ODFH 

DB 0 

ENDIF 

IF NOT DOUBDEN AND NOT DUBSID 

RST 0 ;do warm boot with rst inst. 

DB 0E5H 
DB 0 
ENDIF 

IF NOT DOUBDEN AND DUBSID 

RST 0 

DB 0E7H 

DB 0 

ENDIF 

;end of boot. 


END BOOT 



